From 9267535575b09120ffcdd103af2d3f2c35001ed7 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Sat, 24 Apr 2010 00:16:02 +0000 Subject: [PATCH] 2010-04-23 17:12 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/gtwvg/wvgpushb.prg ! Fixed an ommitted SETGET keyword causing demowvg/demoxbp defunct. --- harbour/ChangeLog | 4 ++++ harbour/contrib/gtwvg/wvgpushb.prg | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 664913baf2..f6889157ba 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-23 17:12 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/gtwvg/wvgpushb.prg + ! Fixed an ommitted SETGET keyword causing demowvg/demoxbp defunct. + 2010-04-23 20:27 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg * Minor safety fix. diff --git a/harbour/contrib/gtwvg/wvgpushb.prg b/harbour/contrib/gtwvg/wvgpushb.prg index 56c050501a..275a09c85c 100644 --- a/harbour/contrib/gtwvg/wvgpushb.prg +++ b/harbour/contrib/gtwvg/wvgpushb.prg @@ -100,13 +100,14 @@ CLASS WvgPushButton INHERIT WvgWindow METHOD handleEvent( nMessage, aNM ) METHOD setCaption( xCaption, cDll ) - METHOD activate( xParam ) - METHOD draw( xParam ) + METHOD activate( xParam ) SETGET + METHOD draw( xParam ) SETGET METHOD setColorFG() INLINE NIL METHOD setColorBG() INLINE NIL ENDCLASS + /*----------------------------------------------------------------------*/ METHOD new( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) CLASS WvgPushButton @@ -209,7 +210,7 @@ METHOD setCaption( xCaption, cDll ) CLASS WvgPushButton METHOD activate( xParam ) CLASS WvgPushButton - IF hb_isBlock( xParam ) .or. ( xParam == NIL ) + IF hb_isBlock( xParam ) .OR. ( xParam == NIL ) ::sl_lbClick := xParam ENDIF