From 45d9122f5a773c4418a85810784fedb476ae5bf1 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 1 Dec 2008 07:50:46 +0000 Subject: [PATCH] 2008-11-30 23:49 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/gtwvg/wvggui.c * harbour/contrib/gtwvg/wvgdlg.prg * harbour/contrib/gtwvg/wvgphdlr.prg * harbour/contrib/gtwvg/wvgwnd.prg ! Cleanup - leftover trace calls. --- harbour/contrib/gtwvg/wvgdlg.prg | 2 +- harbour/contrib/gtwvg/wvggui.c | 2 +- harbour/contrib/gtwvg/wvgphdlr.prg | 2 +- harbour/contrib/gtwvg/wvgwnd.prg | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/harbour/contrib/gtwvg/wvgdlg.prg b/harbour/contrib/gtwvg/wvgdlg.prg index b6890f9ee1..1e712a50fb 100644 --- a/harbour/contrib/gtwvg/wvgdlg.prg +++ b/harbour/contrib/gtwvg/wvgdlg.prg @@ -168,7 +168,7 @@ METHOD destroy() CLASS WvgDialog ENDIF IF Len( ::aChildren ) > 0 - aeval( ::aChildren, {|o| hb_toOutDebug( o:className ), o:destroy() } ) + aeval( ::aChildren, {|o| /*hb_toOutDebug( o:className ),*/ o:destroy() } ) ENDIF ::pGT := NIL diff --git a/harbour/contrib/gtwvg/wvggui.c b/harbour/contrib/gtwvg/wvggui.c index 0f50bf781e..982f622b4b 100644 --- a/harbour/contrib/gtwvg/wvggui.c +++ b/harbour/contrib/gtwvg/wvggui.c @@ -1064,7 +1064,7 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara iLo = LOWORD( wParam ); iHi = HIWORD( wParam ); -hb_ToOutDebug( "%i %i %i", iHi, iLo, lParam ); +//hb_ToOutDebug( "%i %i %i", iHi, iLo, lParam ); hb_arrayNew( pEvParams, 3 ); hb_arraySetNI( pEvParams, 1, iHi ); // Notification Code hb_arraySetNI( pEvParams, 2, iLo ); // Control identifier diff --git a/harbour/contrib/gtwvg/wvgphdlr.prg b/harbour/contrib/gtwvg/wvgphdlr.prg index 6e1726681a..0cac3d4bef 100644 --- a/harbour/contrib/gtwvg/wvgphdlr.prg +++ b/harbour/contrib/gtwvg/wvgphdlr.prg @@ -364,7 +364,7 @@ METHOD notifier( nEvent, xParams ) CLASS WvgPartHandler ENDIF CASE nEvent == HB_GTE_MENU -hb_ToOutDebug( " CASE nEvent == HB_GTE_MENU" ) +//hb_ToOutDebug( " CASE nEvent == HB_GTE_MENU" ) DO CASE CASE xParams[ 1 ] == 0 // menu selected diff --git a/harbour/contrib/gtwvg/wvgwnd.prg b/harbour/contrib/gtwvg/wvgwnd.prg index df2d992dad..2d18ba9cb3 100644 --- a/harbour/contrib/gtwvg/wvgwnd.prg +++ b/harbour/contrib/gtwvg/wvgwnd.prg @@ -311,7 +311,7 @@ METHOD configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) CLASS Wv METHOD destroy() CLASS WvgWindow IF Len( ::aChildren ) > 0 - aeval( ::aChildren, {|o| hb_toOutDebug( '< '+o:className+' >' ), o:destroy() } ) + aeval( ::aChildren, {|o| /*hb_toOutDebug( '< '+o:className+' >' ),*/ o:destroy() } ) ::aChildren := {} ENDIF