* source/rtl/tgetlist.prg

! Fix call to SET() without setting values.
      METHOD ReadExit()
This commit is contained in:
Walter Negro
2002-06-21 14:53:28 +00:00
parent 2cdf886666
commit a68152920f

View File

@@ -111,12 +111,12 @@ CLASS HBGetList
METHOD ShowScoreBoard()
METHOD ReadUpdated( lUpdated )
METHOD ReadVar( cNewVarName )
METHOD ReadExit( lNew ) INLINE Set( _SET_EXIT, lNew )
METHOD ReadExit( lNew ) INLINE IF( ISLOGICAL(lNew), Set( _SET_EXIT, lNew ), Set( _SET_EXIT ) )
METHOD SetFocus()
METHOD Updated() INLINE ::lUpdated
#ifdef HB_COMPAT_C53
METHOD GUIReader(oget,getsys,a,b)
METHOD GUIReader(oGet,getsys,a,b)
METHOD GUIApplyKey( oGUI, nKey )
METHOD GUIPreValidate( oGUI )
METHOD GUIPostValidate( oGUI )