From cfb9367b83d950ad20872a59b9c8608fda1f1b09 Mon Sep 17 00:00:00 2001
From: Pritpal Bedi <bedipritpal@hotmail.com>
Date: Wed, 9 May 2012 19:24:08 +0000
Subject: [PATCH] 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.
---
 harbour/ChangeLog                            | 19 +++++++++++++++++++
 harbour/contrib/hbide/idehome.prg            |  2 +-
 harbour/contrib/hbide/idemain.prg            |  6 ++++--
 harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg |  7 +++++--
 harbour/contrib/hbqt/qtgui/hbqtgui.hbx       |  1 +
 harbour/contrib/hbxbp/tests/demoxbp.prg      |  2 +-
 6 files changed, 31 insertions(+), 6 deletions(-)

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", ;