diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6427191d76..c4737cfa0b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,25 @@ The license applies to all entries newer than 2009-04-28. */ +2012-05-09 12:15 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbqt/qtgui/hbqt_errorsys.prg + + Added: HB_TRACE() call if HVM is closed and error message + needs to be retrieved somehow. It will allow us to + peep in further to pin-point the EXIT GPF. + * contrib/hbqt/qtgui/hbqtgui.hbx + * Re-generated. + * contrib/hbxbp/tests/demoxbp.prg + * Minor. + * contrib/hbide/idehome.prg + * Minor. + * contrib/hbide/idemain.prg + ! Enabled: :destroy() calls before application quits. + + ; NOTE: now no more EXIT GPF is reported in hbIDE. + Please shout if you get one and report the message + available on std error output, for Window which + will be debugger like debug.exe. + 2012-05-09 16:14 UTC+0200 Viktor Szakats (harbour syenar.net) * src/common/hbdate.c ! hb_dateStrPut() fixed to never put non-digits in the diff --git a/harbour/contrib/hbide/idehome.prg b/harbour/contrib/hbide/idehome.prg index d0c5c80cd4..e63cc9bd8b 100644 --- a/harbour/contrib/hbide/idehome.prg +++ b/harbour/contrib/hbide/idehome.prg @@ -341,7 +341,7 @@ METHOD IdeHome:buildWelcomeTab() qBrw:connect( "customContextMenuRequested(QPoint)", {|p| ::execEvent( "browserWelcome_contextMenuRequested", p ) } ) qSList := QStringList() - qSList:append( "docs" ) + qSList:append( hb_dirBase() + "docs" ) qBrw:setSearchPaths( qSList ) RETURN Self diff --git a/harbour/contrib/hbide/idemain.prg b/harbour/contrib/hbide/idemain.prg index fc0b4fb622..c00ff490e7 100644 --- a/harbour/contrib/hbide/idemain.prg +++ b/harbour/contrib/hbide/idemain.prg @@ -105,7 +105,9 @@ REQUEST ADS FUNCTION Main( ... ) LOCAL oTmp - //LOCAL oIde +#if 1 + LOCAL oIde +#endif #ifdef __HBDYNLOAD__RDDADS__ LOCAL hRDDADS, tmp @@ -138,7 +140,7 @@ FUNCTION Main( ... ) QResource():registerResource_1( hbqtres_HbIde(), ":/resource" ) oTmp := HbIde():new( hb_aParams() ) -#if 0 +#if 1 oIde := oTmp:create() oIde:destroy() #else diff --git a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg index aeec11be5a..a2be9f82e6 100644 --- a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg +++ b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg @@ -207,7 +207,6 @@ STATIC FUNCTION hbqt_messageBox( cMsg, cInfo, cTitle, nIcon ) LOCAL oMB IF hbqt_IsActiveApplication() - DEFAULT cTitle TO "Information" DEFAULT nIcon TO QMessageBox_Information @@ -220,7 +219,11 @@ STATIC FUNCTION hbqt_messageBox( cMsg, cInfo, cTitle, nIcon ) oMB:setWindowTitle( cTitle ) oMB:exec() - + + ELSE + #include "hbtrace.ch" + HB_TRACE( HB_TR_ALWAYS, cMsg ) + ENDIF RETURN nil diff --git a/harbour/contrib/hbqt/qtgui/hbqtgui.hbx b/harbour/contrib/hbqt/qtgui/hbqtgui.hbx index 9869aeecf4..08c3537e88 100644 --- a/harbour/contrib/hbqt/qtgui/hbqtgui.hbx +++ b/harbour/contrib/hbqt/qtgui/hbqtgui.hbx @@ -34,6 +34,7 @@ DYNAMIC HBQTABLEVIEW DYNAMIC HBQTEXTBLOCKUSERDATA DYNAMIC HBQTUI DYNAMIC HBQT_ERRORSYS +DYNAMIC HBQT_ISACTIVEAPPLICATION DYNAMIC HBQT_QMAINWINDOW_RESTSETTINGS DYNAMIC HBQT_QMAINWINDOW_SAVESETTINGS DYNAMIC HB_HBQABSTRACTITEMMODEL diff --git a/harbour/contrib/hbxbp/tests/demoxbp.prg b/harbour/contrib/hbxbp/tests/demoxbp.prg index de8ade6d20..7b1203f47a 100644 --- a/harbour/contrib/hbxbp/tests/demoxbp.prg +++ b/harbour/contrib/hbxbp/tests/demoxbp.prg @@ -364,7 +364,7 @@ STATIC FUNCTION Build_MenuBar( oDlg ) #ifdef __HARBOUR__ #if 1 - oSubMenu := XbpMenu():new( oMenuBar ):create() + oSubMenu := XbpMenu():new( oMenuBar ):create( , , .t. ) oSubMenu:title := "~Dialogs" #if 1 /* T H R E D E D D I A L O G */ oSubMenu:addItem( { "~One More Instance"+ chr( K_TAB ) +"Ctrl+M", ;