diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 02b141284d..5ba4e29c27 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,12 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-08 08:38 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/hbxbp/xbpdialog.prg
+    ! Initiated :clipChildren instance variable on XbpDrawingArea() class.
+      I did not know it could be initialized before creating XbpDialog().
+      Thanks Shum for the exact code.
+
 2010-04-08 17:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbxbp/xbpgra.prg
     ! GraGetRGBIntensity() simplified, optimized and fix to work.
diff --git a/harbour/contrib/hbxbp/xbpdialog.prg b/harbour/contrib/hbxbp/xbpdialog.prg
index 7535566f11..9b224281a9 100644
--- a/harbour/contrib/hbxbp/xbpdialog.prg
+++ b/harbour/contrib/hbxbp/xbpdialog.prg
@@ -391,6 +391,7 @@ CLASS XbpDrawingArea  INHERIT  XbpWindow
    DATA     caption                               INIT ""
    DATA     clipParent                            INIT .T.
    DATA     clipSiblings                          INIT .T.
+   DATA     clipChildren                          INIT .F.
 
    METHOD   new( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
    METHOD   create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )