diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index dfb898cf77..d619109df9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-09 13:08 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/hbxbp/xbpdialog.prg
+    ! initialization of XbpDrawingArea() in :new() method.
+
 2010-04-09 21:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * package/harb_osx.icns
     + Recreated from high-res .eps file. (512x512 and smaller
diff --git a/harbour/contrib/hbxbp/xbpdialog.prg b/harbour/contrib/hbxbp/xbpdialog.prg
index 70b76be8f3..4301843916 100644
--- a/harbour/contrib/hbxbp/xbpdialog.prg
+++ b/harbour/contrib/hbxbp/xbpdialog.prg
@@ -129,6 +129,8 @@ METHOD XbpDialog:new( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
    ::resizeMode  := 0
    ::mouseMode   := 0
 
+   ::drawingArea := XbpDrawingArea():new( self, , {0,0}, ::aSize, , .t. )
+
    RETURN Self
 
 /*----------------------------------------------------------------------*/
@@ -169,11 +171,10 @@ METHOD XbpDialog:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
    ENDIF
 
    IF !empty( ::qtObject )
-      ::drawingArea := XbpDrawingArea():new( self )
       ::drawingArea:qtObject := ::oWidget:centralWidget()
-      ::drawingArea:create( self, , {0,0}, ::aSize, , .t. )
+      ::drawingArea:create()
    ELSE
-      ::drawingArea := XbpDrawingArea():new( self, , {0,0}, ::aSize, , .t. ):create()
+      ::drawingArea:create()
       ::oWidget:setCentralWidget( ::drawingArea:oWidget )
    ENDIF