From 8dd2801a36a7c7ba115c3758ea4024d8a407cb5b Mon Sep 17 00:00:00 2001 From: Francesco Saverio Giudice Date: Sat, 4 Oct 2008 17:37:51 +0000 Subject: [PATCH] 2008-10-04 19:36 UTC+0100 Francesco Saverio Giudice (info at fsgiudice dot com) * contrib/hbwhat/wincore.prg * HB_Exec() changed to HB_ExecFromArray() Now contrib/hbwhat/tests/whatdemo.prg can be compiled and runs --- harbour/ChangeLog | 45 +++++++++++++++++------------- harbour/contrib/hbwhat/wincore.prg | 4 +-- 2 files changed, 27 insertions(+), 22 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 037b75e62f..5c19583ea1 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-04 19:36 UTC+0100 Francesco Saverio Giudice (info at fsgiudice dot com) + * contrib/hbwhat/wincore.prg + * HB_Exec() changed to HB_ExecFromArray() + Now contrib/hbwhat/tests/whatdemo.prg can be compiled and runs + 2008-10-03 21:53 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) - harbour/tests/speedtst.prg + harbour/tests/speedold.prg @@ -41,10 +46,10 @@ * contrib/hbole/ole2.c * contrib/hbwin/win_tole.prg * contrib/hbwin/win_ole.c - * OLESHOWEXCEPTION() implemented on the .prg level, using + * OLESHOWEXCEPTION() implemented on the .prg level, using Alert() rather than MessageBox(). ! All MessageBox()es converted to Alert()s. - + Added OLEEXCEPTIONSOURCE(), OLEEXCEPTIONDESCRIPTION() + + Added OLEEXCEPTIONSOURCE(), OLEEXCEPTIONDESCRIPTION() to hbole. * source/vm/maindllp.c @@ -76,18 +81,18 @@ ! Removed some company names from comments. * source/vm/extrap.c - + Added //BATCH internal switch to indicate exception handler - to suppress the Windows exception dialog when an exception + + Added //BATCH internal switch to indicate exception handler + to suppress the Windows exception dialog when an exception occurs. Useful for programs running without user interaction. - NOTE: This may not be the ultimate method. If we can gather - more such situations where such "batch" mode might + NOTE: This may not be the ultimate method. If we can gather + more such situations where such "batch" mode might be useful, we may as well implement it as a Set(). - - Removed Harbour specific exception MessageBox(). Besides - having gotten rid of a MessageBox() call in core VM, Harbour now - got back the standard Windows error handling dialog, which is - more standard and easy to get by than the previous default - method, where several clicks were needed to pass through - the (sometimes hidden) popups. The details of all GPFs are + - Removed Harbour specific exception MessageBox(). Besides + having gotten rid of a MessageBox() call in core VM, Harbour now + got back the standard Windows error handling dialog, which is + more standard and easy to get by than the previous default + method, where several clicks were needed to pass through + the (sometimes hidden) popups. The details of all GPFs are still logged into hb_out.log. + Removed size limit for the logged exception call stack. @@ -96,15 +101,15 @@ ! Removed some company names from comments. * source/vm/extrap.c - + Added //BATCH internal switch to indicate exception handler - to suppress the Windows exception dialog when an exception + + Added //BATCH internal switch to indicate exception handler + to suppress the Windows exception dialog when an exception occurs. Useful for programs running without user interaction. - - Removed Harbour specific exception MessageBox(). Besides - having gotten rid of a MessageBox() call in core VM, Harbour now - got back the standard Windows error handling dialog, which is - more standard and easy to get by than the previous default - method, where several clicks were needed to pass through - the (sometimes hidden) popups. The details of all GPFs are + - Removed Harbour specific exception MessageBox(). Besides + having gotten rid of a MessageBox() call in core VM, Harbour now + got back the standard Windows error handling dialog, which is + more standard and easy to get by than the previous default + method, where several clicks were needed to pass through + the (sometimes hidden) popups. The details of all GPFs are still logged into hb_out.log. + Removed size limit for the logged exception call stack. diff --git a/harbour/contrib/hbwhat/wincore.prg b/harbour/contrib/hbwhat/wincore.prg index 2bacf76478..e6aaf92d7c 100644 --- a/harbour/contrib/hbwhat/wincore.prg +++ b/harbour/contrib/hbwhat/wincore.prg @@ -284,7 +284,7 @@ Function WHT__ProcessMsg( hWnd, nMsg, nwParam, nlParam, nIndex ) EndIf Else If Valtype( bProc ) == "N" - nRet := HB_Exec( bProc, oObj, hWnd, nMsg, nwParam, nlParam, xCargo ) + nRet := HB_ExecFromArray( bProc, { oObj, hWnd, nMsg, nwParam, nlParam, xCargo } ) Else nRet := Eval( bProc, hWnd, nMsg, nwParam, nlParam ) Endif @@ -340,7 +340,7 @@ Function WHT__ProcessDlgMsg( hDlg, nMsg, nwParam, nlParam ) nResult := iif( ValType(aDialog[ nIndex, 2 ]) == "B", ; eval( aDialog[ nIndex, 2 ] , hDlg, nMsg, nwParam, nlParam ),; iif( Valtype( aDialog[ nIndex, 2 ] ) == "N", ; - HB_Exec( aDialog[ nIndex,2 ], aDialog[ nIndex, 4], hDlg, nMsg, nwParam, nlParam, aDialog[ nIndex, 5 ] ),; + HB_ExecFromArray( aDialog[ nIndex,2 ], { aDialog[ nIndex, 4], hDlg, nMsg, nwParam, nlParam, aDialog[ nIndex, 5 ] } ),; 0 ); )