From 1c0d273c5ee92305ca2c87d127f48bc083dd8043 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 23 Jul 2012 15:49:54 +0000
Subject: [PATCH] 2012-07-23 17:48 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/gtwvg/activex.prg   * contrib/gtwvg/gtwvg.c     ! cleaned 1 out
 of about 4 different debugging method used in       this component     !
 fixed lib depending on a function implemented in demo code.

---
 harbour/ChangeLog                 |  7 +++++++
 harbour/contrib/gtwvg/activex.prg | 13 ++++++++-----
 harbour/contrib/gtwvg/gtwvg.c     |  1 -
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7f4690f0c7..7525f0f1bc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,13 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-07-23 17:48 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/gtwvg/activex.prg
+  * contrib/gtwvg/gtwvg.c
+    ! cleaned 1 out of about 4 different debugging method used in
+      this component
+    ! fixed lib depending on a function implemented in demo code.
+
 2012-07-23 17:38 UTC+0200 Viktor Szakats (harbour syenar.net)
   + contrib/hbide/actions.prg
   + contrib/hbide/browse.prg
diff --git a/harbour/contrib/gtwvg/activex.prg b/harbour/contrib/gtwvg/activex.prg
index bb2dfa1168..48d6377472 100644
--- a/harbour/contrib/gtwvg/activex.prg
+++ b/harbour/contrib/gtwvg/activex.prg
@@ -77,6 +77,12 @@
 
 /*----------------------------------------------------------------------*/
 
+#ifndef __DBG_PARTS__
+#xtranslate hb_traceLog( [<x,...>] ) =>
+#endif
+
+/*----------------------------------------------------------------------*/
+
 CLASS WvgActiveXControl FROM WvgWindow
 
    DATA   oOLE
@@ -202,7 +208,7 @@ PROCEDURE execEvent( nEvent, ... ) CLASS WvgActiveXControl
    LOCAL aEvents := { ... }
 
    aEval( aEvents, { | xEvent | cEvents += HB_ValToStr( xEvent ) + ", " } )
-   WAPI_OutputDebugString( cEvents )
+   hb_TraceLog( cEvents )
 #endif
 
    IF hb_hHaskey( ::hEvents, nEvent )
@@ -230,9 +236,6 @@ METHOD WvgActiveXControl:handleEvent( nEvent, aNM )
       EXIT
 
    CASE HB_GTE_ANY
-      IF aNM[ 1 ] == WM_LBUTTONUP
-uiDebug( "here the event is caught" )
-      ENDIF
       EXIT
 
    ENDSWITCH
@@ -243,7 +246,7 @@ uiDebug( "here the event is caught" )
 
 METHOD WvgActiveXControl:OnError()
 #if 0
-   WAPI_OutputDebugString( "HI: " + HB_ValToStr( __GetMessage() ) + " : " + str( len( HB_AParams() ) ) )
+   hb_TraceLog( "HI: " + HB_ValToStr( __GetMessage() ) + " : " + str( len( HB_AParams() ) ) )
 #endif
    RETURN HB_ExecFromArray( ::oOLE, __GetMessage(), HB_AParams() )
 
diff --git a/harbour/contrib/gtwvg/gtwvg.c b/harbour/contrib/gtwvg/gtwvg.c
index 486167140b..f83887289c 100644
--- a/harbour/contrib/gtwvg/gtwvg.c
+++ b/harbour/contrib/gtwvg/gtwvg.c
@@ -486,7 +486,6 @@ static int hb_gt_wvt_FireEvent( PHB_GTWVT pWVT, int nEvent, PHB_ITEM pParams )
 
          if( pWVT->pNotifierGUI )
          {
-//OutputDebugString( L"if( pWVT->pNotifierGUI )" );
             nResult = hb_itemGetNI( hb_vmEvalBlockV( pWVT->pNotifierGUI, 2, pEvent, pParams ) );
          }