fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-08-31 14:06 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/xbpparthandler.prg
  * contrib/hbxbp/xbpwindow.prg
    ! :status() more synchronized. 
        NIL              => Not initialized.
        XBP_STAT_INIT    => Object is initialized.
        XBP_STAT_CREATE  => Object creation is successful.
        XBP_STAT_FAILURE => Object creation is either failed or 
                            object is destroyed.
This commit is contained in:
Pritpal Bedi
2010-08-31 21:08:13 +00:00
parent 0c887e73d1
commit 9e39e212a6
3 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-08-31 14:06 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbpparthandler.prg
* contrib/hbxbp/xbpwindow.prg
! :status() more synchronized.
NIL => Not initialized.
XBP_STAT_INIT => Object is initialized.
XBP_STAT_CREATE => Object creation is successful.
XBP_STAT_FAILURE => Object creation is either failed or
object is destroyed.
2010-08-31 13:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbp.ch
* contrib/hbxbp/xbp3state.prg

4
harbour/contrib/hbxbp/xbpparthandler.prg
View File

@@ -100,7 +100,7 @@ CLASS XbpPartHandler
DATA nNameId
DATA oParent
DATA oOwner
DATA nStatus INIT XBP_STAT_INIT
DATA nStatus INIT NIL
ENDCLASS
@@ -110,6 +110,7 @@ METHOD init( oParent, oOwner ) CLASS XbpPartHandler
::oParent := oParent
::oOwner := oOwner
::status := XBP_STAT_INIT
RETURN Self
@@ -146,6 +147,7 @@ METHOD destroy() CLASS XbpPartHandler
::oParent := NIL
::oOwner := NIL
::nStatus := NIL
::status := XBP_STAT_FAILURE
RETURN NIL

14
harbour/contrib/hbxbp/xbpwindow.prg
View File

@@ -417,13 +417,6 @@ METHOD XbpWindow:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible
METHOD XbpWindow:destroy()
#if 0
HB_TRACE( HB_TR_DEBUG, ". " )
HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ B ] "+pad(cCls,12)+ IF(empty(::cargo),'',str(::cargo) ), memory( 1001 ) )
LOCAL cCls := __ObjGetClsName( self ), cMsg
cMsg := iif( cCls == "XBPWINDOW", ::oWidget:objectName(), IF( empty(::cargo),'',str(::cargo) ) )
HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ B ] "+pad(cCls,12)+ cMsg, memory( 1001 ) )
#endif
::oParent := NIL
::oOwner := NIL
@@ -437,7 +430,6 @@ HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ B ] "+pad(cCls,12)+ cMsg, memory
IF !empty( ::qtObject )
::qtObject:destroy()
// ::qtObject := NIL
ENDIF
IF !empty( ::qLayout )
@@ -445,11 +437,7 @@ HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ B ] "+pad(cCls,12)+ cMsg, memory
ENDIF
::oWidget := NIL
#if 0
HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ E ] "+pad(__ObjGetClsName( self ),12)+ IF(empty(::cargo),'',str(::cargo) ), memory( 1001 ) )
HB_TRACE( HB_TR_DEBUG, ". " )
HB_TRACE( HB_TR_DEBUG, hb_threadId(),"Destroy[ E ] "+pad(__ObjGetClsName( self ),12)+ IF(empty(::cargo),'',str(::cargo) ), memory( 1001 ) )
#endif
RETURN NIL
/*----------------------------------------------------------------------*/