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

2011-04-13 11:45 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/xbpparthandler.prg
    ! Changed: ::aOwned to ::_aOwned to suggest that this is internal.
This commit is contained in:
Pritpal Bedi
2011-04-13 18:48:40 +00:00
parent c079fae074
commit 52686b5bd9
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-04-13 11:45 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbpparthandler.prg
! Changed: ::aOwned to ::_aOwned to suggest that this is internal.
2011-04-13 17:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbnetio/netiosrv.c
* harbour/contrib/hbnetio/readme.txt

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

@@ -100,7 +100,7 @@ CLASS XbpPartHandler
METHOD notifier()
DATA aChildren INIT {}
DATA aOwned INIT {}
DATA _aOwned INIT {}
DATA nNameId
DATA oParent
DATA oOwner
@@ -209,7 +209,7 @@ METHOD addAsChild() CLASS XbpPartHandler
METHOD addAsOwned( oXbp ) CLASS XbpPartHandler
IF ! empty( oXbp )
aadd( ::aOwned, oXbp )
aadd( ::_aOwned, oXbp )
ENDIF
RETURN Self
@@ -252,8 +252,8 @@ METHOD delChild( oXbp ) CLASS XbpPartHandler
METHOD delOwned( oXbp ) CLASS XbpPartHandler
LOCAL n
IF ( n := ascan( ::aOwned, {|o| o == oXbp } ) ) > 0
hb_adel( ::aOwned, n, .t. )
IF ( n := ascan( ::_aOwned, {|o| o == oXbp } ) ) > 0
hb_adel( ::_aOwned, n, .t. )
endif
RETURN Self
@@ -316,8 +316,8 @@ METHOD notifier() CLASS XbpPartHandler
METHOD moveOwned( nOffSetX, nOffSetY ) CLASS XbpPartHandler
LOCAL oXbp, oPos
FOR EACH oXbp IN ::aOwned
IF oXbp:className() == "XBPDIALOG" .AND. oXbp:moveWithOwner
FOR EACH oXbp IN ::_aOwned
IF __objHasMsg( oXbp, "MOVEWITHOWNER" ) .AND. oXbp:moveWithOwner
oPos := oXbp:oWidget:pos()
oXbp:oWidget:move( oPos:x() + nOffSetX, oPos:y() + nOffSetY )
ENDIF