fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-12-18 13:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbpwindow.prg
    ! Fixed "lSuccess" issue.
This commit is contained in:
Pritpal Bedi
2009-12-18 21:05:22 +00:00
parent fa3b4a4d49
commit 1962de2f28
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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.

12
harbour/contrib/hbxbp/xbpwindow.prg
View File

@@ -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