From 544ae8990ce35d9acad8c38cd2f3db0132187348 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 10 Nov 2012 03:01:37 +0000 Subject: [PATCH] 2012-11-10 03:59 UTC+0100 Viktor Szakats (harbour syenar.net) * contrib/gtwvg/bitmap.prg * contrib/gtwvg/drawarea.prg * contrib/gtwvg/mle.prg * contrib/gtwvg/radiobut.prg * contrib/gtwvg/scrollbr.prg * contrib/gtwvg/sle.prg * contrib/gtwvg/tabpage.prg ! deleted permantenly enabled debug messages (STILL!) Quite amazing these are tolerated in live apps for months/years. --- harbour/ChangeLog | 12 ++++++++++++ harbour/contrib/gtwvg/bitmap.prg | 4 ---- harbour/contrib/gtwvg/drawarea.prg | 2 -- harbour/contrib/gtwvg/mle.prg | 2 -- harbour/contrib/gtwvg/radiobut.prg | 4 ---- harbour/contrib/gtwvg/scrollbr.prg | 2 -- harbour/contrib/gtwvg/sle.prg | 2 -- harbour/contrib/gtwvg/tabpage.prg | 3 --- 8 files changed, 12 insertions(+), 19 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 42ef563c0f..bf855094c1 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,18 @@ The license applies to all entries newer than 2009-04-28. */ +2012-11-10 03:59 UTC+0100 Viktor Szakats (harbour syenar.net) + * contrib/gtwvg/bitmap.prg + * contrib/gtwvg/drawarea.prg + * contrib/gtwvg/mle.prg + * contrib/gtwvg/radiobut.prg + * contrib/gtwvg/scrollbr.prg + * contrib/gtwvg/sle.prg + * contrib/gtwvg/tabpage.prg + ! deleted permantenly enabled debug messages (STILL!) + Quite amazing these are tolerated in live + apps for months/years. + 2012-11-10 03:51 UTC+0100 Viktor Szakats (harbour syenar.net) - contrib/gtwvg/tests/activex.prg - contrib/gtwvg/tests/cuigdlgs.prg diff --git a/harbour/contrib/gtwvg/bitmap.prg b/harbour/contrib/gtwvg/bitmap.prg index 8b10ea2f27..e3fc0cb2ee 100644 --- a/harbour/contrib/gtwvg/bitmap.prg +++ b/harbour/contrib/gtwvg/bitmap.prg @@ -68,10 +68,6 @@ #include "wvtwin.ch" #include "wvgparts.ch" -#ifndef __DBG_PARTS__ -#xtranslate hb_traceLog( [] ) => -#endif - CREATE CLASS WvgBitmap VAR bits INIT 0 READONLY diff --git a/harbour/contrib/gtwvg/drawarea.prg b/harbour/contrib/gtwvg/drawarea.prg index e4969a164e..7bad63440a 100644 --- a/harbour/contrib/gtwvg/drawarea.prg +++ b/harbour/contrib/gtwvg/drawarea.prg @@ -136,8 +136,6 @@ METHOD WvgDrawingArea:handleEvent( nMessage, aNM ) METHOD destroy() CLASS WvgDrawingArea - hb_traceLog( " %s:destroy()", __objGetClsName( self ) ) - ::wvgWindow:destroy() RETURN NIL diff --git a/harbour/contrib/gtwvg/mle.prg b/harbour/contrib/gtwvg/mle.prg index e2ba44cd0f..3c9589db2d 100644 --- a/harbour/contrib/gtwvg/mle.prg +++ b/harbour/contrib/gtwvg/mle.prg @@ -251,8 +251,6 @@ METHOD WvgMLE:handleEvent( nMessage, aNM ) METHOD WvgMLE:destroy() - hb_traceLog( " %s:destroy()", __objGetClsName( self ) ) - ::wvgWindow:destroy() RETURN NIL diff --git a/harbour/contrib/gtwvg/radiobut.prg b/harbour/contrib/gtwvg/radiobut.prg index dfc640ce2d..7b189b8850 100644 --- a/harbour/contrib/gtwvg/radiobut.prg +++ b/harbour/contrib/gtwvg/radiobut.prg @@ -122,8 +122,6 @@ METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) CLASS WvgRa METHOD handleEvent( nMessage, aNM ) CLASS WvgRadioButton - hb_traceLog( " %s:handleEvent( %i )", __objGetClsName( self ), nMessage ) - SWITCH nMessage CASE HB_GTE_COMMAND @@ -143,8 +141,6 @@ METHOD handleEvent( nMessage, aNM ) CLASS WvgRadioButton METHOD destroy() CLASS WvgRadioButton - hb_traceLog( " %s:destroy()", __objGetClsName( self ) ) - ::wvgWindow:destroy() RETURN NIL diff --git a/harbour/contrib/gtwvg/scrollbr.prg b/harbour/contrib/gtwvg/scrollbr.prg index 65e6d5bb7e..d34c2bfb4e 100644 --- a/harbour/contrib/gtwvg/scrollbr.prg +++ b/harbour/contrib/gtwvg/scrollbr.prg @@ -305,8 +305,6 @@ METHOD handleEvent( nMessage, aNM ) CLASS WvgScrollBar METHOD destroy() CLASS WvgScrollBar - hb_traceLog( " %s:destroy()", __objGetClsName( self ) ) - ::wvgWindow:destroy() RETURN NIL diff --git a/harbour/contrib/gtwvg/sle.prg b/harbour/contrib/gtwvg/sle.prg index 0c3d49ab37..3f28711d00 100644 --- a/harbour/contrib/gtwvg/sle.prg +++ b/harbour/contrib/gtwvg/sle.prg @@ -245,8 +245,6 @@ METHOD handleEvent( nMessage, aNM ) CLASS WvgSLE METHOD destroy() CLASS WvgSLE - hb_traceLog( " %s:destroy()", __objGetClsName( self ) ) - ::wvgWindow:destroy() RETURN NIL diff --git a/harbour/contrib/gtwvg/tabpage.prg b/harbour/contrib/gtwvg/tabpage.prg index 57f004ce80..9267ad5d0b 100644 --- a/harbour/contrib/gtwvg/tabpage.prg +++ b/harbour/contrib/gtwvg/tabpage.prg @@ -140,10 +140,7 @@ METHOD handleEvent( nMessage, aNM ) CLASS WvgTabPage LOCAL aHdr - hb_traceLog( " %s:handleEvent( %i )", __objGetClsName( self ), nMessage ) - DO CASE - CASE nMessage == HB_GTE_SETFOCUS IF HB_ISBLOCK( ::sl_tabActivate )