diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ebafd9a6e8..0de5513f5a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-29 08:10 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/contrib/gtwvg/tests/demowvg.prg + ! Cleaned debug call left by mistake. + 2008-10-28 18:12 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/gtwvg/gtwvg.c * harbour/contrib/gtwvg/gtwvg.h diff --git a/harbour/contrib/gtwvg/tests/demowvg.prg b/harbour/contrib/gtwvg/tests/demowvg.prg index 28df3fc477..f5850e56c9 100644 --- a/harbour/contrib/gtwvg/tests/demowvg.prg +++ b/harbour/contrib/gtwvg/tests/demowvg.prg @@ -145,7 +145,7 @@ PROCEDURE Main( cDSN ) LOCAL nConxn SET DATE BRITISH -hb_ToOutDebug( "1" ) + SET( _SET_EVENTMASK, INKEY_ALL ) Wvt_SetGui( .t. ) @@ -158,7 +158,7 @@ hb_ToOutDebug( "1" ) hPopup := Wvt_SetPopupMenu() oMenu := CreateMainMenu() -hb_ToOutDebug( "2" ) + // Force mouse pointer right below the xHarbour label // Wvt_SetMousePos( 2,40 ) @@ -268,9 +268,9 @@ hb_ToOutDebug( "2" ) @ 15, nColGet GET cAdd2 @ 17, nColGet GET cAdd3 @ 17, 61 GET nSlry PICTURE "@Z 9999999.99" -hb_ToOutDebug( "3" ) + READ -hb_ToOutDebug( "4" ) + // Restore Environment // WvtSetBlocks( aLastPaint ) @@ -732,7 +732,7 @@ FUNCTION WvtMyBrowse_X() else if nKey == HB_K_RESIZE - oBrowse:nBottom := maxrow() - 2 + oBrowse:nBottom := maxrow() - 3 oBrowse:nRight := maxcol() - 5 DispBox( 0, 0, maxrow(), maxcol(), " ", "N/W" )