2011-05-06 11:46 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

* contrib/hbxbp/xbpdialog.prg
  * contrib/hbxbp/xbpwindow.prg
    ! Fixed: handelling of :close callback and PostAppEvent( xbeP_Close ).

harbour/ChangeLog

@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-05-06 11:46 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbxbp/xbpdialog.prg
+  * contrib/hbxbp/xbpwindow.prg
+    ! Fixed: handelling of :close callback and PostAppEvent( xbeP_Close ).
+
 2011-05-06 11:00 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbqt/qtgui/qth/QPrinterInfo.qth
     ! Fixed: constructor.

harbour/contrib/hbxbp/xbpdialog.prg

@@ -249,6 +249,8 @@ METHOD XbpDialog:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
 
    ::postCreate()
 
+   ::oWidget:setAttribute( Qt_WA_DeleteOnClose, .f. )
+
    RETURN Self
 
 /*----------------------------------------------------------------------*/
@@ -289,8 +291,8 @@ METHOD XbpDialog:execEvent( nEvent, pEvent )
 
    CASE nEvent == QEvent_Close
       pEvent:ignore()
-      ::close()
       SetAppEvent( xbeP_Close, NIL, NIL, Self )
+
    ENDCASE
 
    RETURN .F.

harbour/contrib/hbxbp/xbpwindow.prg

@@ -673,11 +673,7 @@ METHOD XbpWindow:handleEvent( nEvent, mp1, mp2 )
    SWITCH ( nEvent )
 
    CASE xbeP_Close
-      #if 0
-      IF ! empty( ::oWidget )
-         ::destroy()
-      ENDIF
-      #endif
+      ::close()
       EXIT
    CASE xbeP_Keyboard
       ::keyboard( mp1 )