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

@@ -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

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() )
 

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 ) );
          }