diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6f8d842909..3478bb83fa 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,18 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2004-02-16 15:52 UTC+0100 Viktor Szakats + + * src/rtl/set.c + ! Fixed an incompatibility in Set(_SET_EXIT) which caused + ReadExit() to set the SET value even if called without + a parameter. Similar incompatibility can exist with other + sets, but I didn't chk them. + Now ReadExit() works as expected. + + * src/rtl/tbrowse.prg + ! Typo. + 2004-02-16 10:52 UTC+0100 Viktor Szakats * src/rtl/tbrowse.prg diff --git a/harbour/source/rtl/set.c b/harbour/source/rtl/set.c index 98383c9203..7955e6be05 100644 --- a/harbour/source/rtl/set.c +++ b/harbour/source/rtl/set.c @@ -625,7 +625,8 @@ HB_FUNC( SET ) break; case HB_SET_EXIT : hb_retl( hb_set.HB_SET_EXIT ); - if( args > 1 ) hb_set.HB_SET_EXIT = set_logical( pArg2 ); + /* NOTE: Otherwise ReadExit() will always set the value. [vszakats] */ + if( pArg2 != NULL && !HB_IS_NIL( pArg2 ) ) hb_set.HB_SET_EXIT = set_logical( pArg2 ); break; case HB_SET_EXTRA : hb_retl( hb_set.HB_SET_EXTRA ); diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index 2d2b948b13..1405e9aebb 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -1303,7 +1303,7 @@ return Self METHOD ColorRect( aRect, aRectColor ) CLASS TBrowse - IF ISARRAY( aRect ) .AND. ISARRAY( aRecColor ) + IF ISARRAY( aRect ) .AND. ISARRAY( aRectColor ) ::aRect := aRect ::aRectColor := aRectColor ENDIF