2009-12-21 02:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbqt/hbqt.ch
  * contrib/hbxbp/xbp.ch
    + Using HB_TRACE() macro. This means that now .prg level
      trace messages have to be enabled the standard way, __HB_DEBUG__
      has no meaning anymore.

  * contrib/hbwin/tests/testwmtx.prg
    - Deleted some bits added by me as per Xavi's suggestions.

harbour/ChangeLog

@@ -17,10 +17,20 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-12-21 02:49 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbqt/hbqt.ch
+  * contrib/hbxbp/xbp.ch
+    + Using HB_TRACE() macro. This means that now .prg level
+      trace messages have to be enabled the standard way, __HB_DEBUG__
+      has no meaning anymore.
+
+  * contrib/hbwin/tests/testwmtx.prg
+    - Deleted some bits added by me as per Xavi's suggestions.
+
 2009-12-21 00:59 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * include/hbextern.ch
     + Added new trace functions.
-    ; TODO: Use these new functions in HBQT, HBXBP.
+    ; TODO: Use these new functions in HBQT, HBXBP. [DONE]
 
   * contrib/hbwin/win_dll.c
     ! Fix for OpenWatcom. Seems to require LPVOID in asm code.

harbour/contrib/hbqt/hbqt.ch

@@ -67,14 +67,19 @@
 
 #ifndef _HBQT_CH
 
-#if defined( __HB_DEBUG__ )
-   #xtranslate HBQT_DEBUG( [<x,...>] ) => hb_TraceString( <x> )
-#else
-   #xtranslate HBQT_DEBUG( [<x,...>] ) => iif( .T.,, )
-#endif
+/*----------------------------------------------------------------------*/
 
+#include "hbtrace.ch"
+
+#xtranslate HBQT_DEBUG( [<x,...>] ) => HB_TRACE( HB_TR_DEBUG, <x> )
+
+/*----------------------------------------------------------------------*/
+
+/* Retained for compatibility */
 #define QT_PTROF( oObj )                          ( oObj )
 
+/*----------------------------------------------------------------------*/
+
 #define HBQT_RELEASE_WITH_DELETE                  0        // Release the QObject with delete operator
 #define HBQT_RELEASE_WITH_DESTRUTOR               1        // Release the QObject with his destructor
 #define HBQT_RELEASE_WITH_DELETE_LATER            2        // Release the QObject with deleteLater() slot

harbour/contrib/hbwin/tests/testwmtx.prg

@@ -13,11 +13,10 @@ PROCEDURE Main()
    s_hMutex := wapi_CreateMutex( NIL, NIL, cAppName )
    IF ! Empty( s_hMutex ) .AND. wapi_GetLastError() == 0
       ? cAppName, "=> Hello World! OK."
-      WAIT
-      wapi_ReleaseMutex( s_hMutex )
    ELSE
       ? cAppName, "=> Application is running. Error", wapi_GetLastError()
-      WAIT
    ENDIF
 
+   WAIT
+
    RETURN

harbour/contrib/hbxbp/xbp.ch

@@ -4,11 +4,11 @@
 
 #ifndef _XBP_CH
 
-#if defined( __HB_DEBUG__ )
-   #xtranslate HBXBP_DEBUG( [<x,...>] ) => hb_TraceString( <x> )
-#else
-   #xtranslate HBXBP_DEBUG( [<x,...>] ) => iif( .T.,, )
-#endif
+/*----------------------------------------------------------------------*/
+
+#include "hbtrace.ch"
+
+#xtranslate HBXBP_DEBUG( [<x,...>] ) => HB_TRACE( HB_TR_DEBUG, <x> )
 
 /*----------------------------------------------------------------------*/