From 1962de2f28c2d250b68a56cb8e8ef5d6866d5751 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Fri, 18 Dec 2009 21:05:22 +0000 Subject: [PATCH] 2009-12-18 13:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbxbp/xbpwindow.prg ! Fixed "lSuccess" issue. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbxbp/xbpwindow.prg | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index cb76dcc664..cd776cebbe 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-12-18 13:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbxbp/xbpwindow.prg + ! Fixed "lSuccess" issue. + 2009-12-18 18:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * doc/whatsnew.txt + Added text documenting whatsnew missing parts. diff --git a/harbour/contrib/hbxbp/xbpwindow.prg b/harbour/contrib/hbxbp/xbpwindow.prg index d63a68e103..f718f494d4 100644 --- a/harbour/contrib/hbxbp/xbpwindow.prg +++ b/harbour/contrib/hbxbp/xbpwindow.prg @@ -734,7 +734,7 @@ METHOD XbpWindow:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible /*----------------------------------------------------------------------*/ METHOD XbpWindow:destroy() - LOCAL e_, lSuccess + LOCAL e_ LOCAL cXbp := __ObjGetClsName( self ) //HBXBP_DEBUG( ". " ) @@ -752,8 +752,8 @@ METHOD XbpWindow:destroy() IF len( ::aEConnections ) > 0 FOR EACH e_ IN ::aEConnections - lSuccess := Qt_DisConnect_Event( e_[ 1 ], e_[ 2 ] ) - hbxbp_debug( "Event Disconnect:", iif( lSuccess, "SUCCEEDED", "FAILED " ), e_[ 1 ], e_[ 2 ] ) + ::xDummy := Qt_DisConnect_Event( e_[ 1 ], e_[ 2 ] ) + hbxbp_debug( "Event Disconnect:", iif( ::xDummy, "SUCCEEDED", "FAILED " ), e_[ 1 ], e_[ 2 ] ) NEXT ::aEConnections := {} ::oWidget:removeEventFilter( QT_GetEventFilter() ) @@ -783,12 +783,12 @@ METHOD XbpWindow:destroy() /*----------------------------------------------------------------------*/ METHOD XbpWindow:disconnect() - LOCAL lSuccess, e_ + LOCAL e_ IF len( ::aConnections ) > 0 FOR EACH e_ IN ::aConnections - lSuccess := Qt_DisConnect_Signal( e_[ 1 ], e_[ 2 ] ) - hbxbp_debug( " Signal Disconnect:", iif( lSuccess, "SUCCEEDED", "FAILED " ), e_[ 1 ], e_[ 2 ] ) + ::xDummy := Qt_DisConnect_Signal( e_[ 1 ], e_[ 2 ] ) + hbxbp_debug( " Signal Disconnect:", iif( ::xDummy, "SUCCEEDED", "FAILED " ), e_[ 1 ], e_[ 2 ] ) NEXT ::aConnections := {} ENDIF