From 52686b5bd95cf78f7ad5dc4cd09578926e73d762 Mon Sep 17 00:00:00 2001
From: Pritpal Bedi <bedipritpal@hotmail.com>
Date: Wed, 13 Apr 2011 18:48:40 +0000
Subject: [PATCH] 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.

---
 harbour/ChangeLog                        |  4 ++++
 harbour/contrib/hbxbp/xbpparthandler.prg | 12 ++++++------
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 74b7f4a8ff..4045018017 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/contrib/hbxbp/xbpparthandler.prg b/harbour/contrib/hbxbp/xbpparthandler.prg
index f688f96592..61c8612e4c 100644
--- a/harbour/contrib/hbxbp/xbpparthandler.prg
+++ b/harbour/contrib/hbxbp/xbpparthandler.prg
@@ -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