fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-04-23 17:12 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/gtwvg/wvgpushb.prg
    ! Fixed an ommitted SETGET keyword causing demowvg/demoxbp defunct.
This commit is contained in:
Pritpal Bedi
2010-04-24 00:16:02 +00:00
parent 2c10ee2ab4
commit 9267535575
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

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

7
harbour/contrib/gtwvg/wvgpushb.prg
View File

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