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

2010-02-05 17:52 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbpdialog.prg
    ! Fixed a long-standing bug where oDlg:close slot was 
      hiding the window instead of passing taking appropriate
      action when user was opting not to close the window
      returning .F. from this codeblock.
This commit is contained in:
Pritpal Bedi
2010-02-06 01:52:11 +00:00
parent c20c6ea8c4
commit 775602b9d9
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-02-05 17:52 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbpdialog.prg
! Fixed a long-standing bug where oDlg:close slot was
hiding the window instead of passing taking appropriate
action when user was opting not to close the window
returning .F. from this codeblock.
2010-02-05 10:11 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/hbqt_hbslots.cpp
! Fixed wrong number of parameters push to hb_vmEvalBlockV().

8
harbour/contrib/hbxbp/xbpdialog.prg
View File

@@ -263,23 +263,19 @@ METHOD XbpDialog:destroy()
/*----------------------------------------------------------------------*/
METHOD XbpDialog:exeBlock( nEvent, pEvent )
LOCAL lRet := .F.
HB_SYMBOL_UNUSED( pEvent )
DO CASE
CASE nEvent == QEvent_WindowActivate
SetAppEvent( xbeP_SetDisplayFocus, NIL, NIL, Self )
lRet := .T.
CASE nEvent == QEvent_WindowDeactivate
SetAppEvent( xbeP_KillDisplayFocus, NIL, NIL, Self )
lRet := .T.
CASE nEvent == QEvent_Close
IF hb_isBlock( ::sl_close )
lRet := eval( ::sl_close, NIL, NIL, Self )
IF lRet
IF eval( ::sl_close, NIL, NIL, Self )
SetAppEvent( xbeP_Close, NIL, NIL, Self )
ENDIF
ELSE
@@ -288,7 +284,7 @@ METHOD XbpDialog:exeBlock( nEvent, pEvent )
ENDCASE
RETURN lRet
RETURN .T.
/*----------------------------------------------------------------------*/