From a68152920f77e7888af297b44d613c2d353a4eb7 Mon Sep 17 00:00:00 2001 From: Walter Negro Date: Fri, 21 Jun 2002 14:53:28 +0000 Subject: [PATCH] * source/rtl/tgetlist.prg ! Fix call to SET() without setting values. METHOD ReadExit() --- harbour/source/rtl/tgetlist.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg index ff8ee7378f..52297832d5 100644 --- a/harbour/source/rtl/tgetlist.prg +++ b/harbour/source/rtl/tgetlist.prg @@ -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 )