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

2004-02-16 15:52 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* 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.
This commit is contained in:
Viktor Szakats
2004-02-16 14:48:24 +00:00
parent 2679336181
commit 9d455bc0cf
3 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -8,6 +8,18 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-16 15:52 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* 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 <viktor.szakats@syenar.hu>
* src/rtl/tbrowse.prg

3
harbour/source/rtl/set.c
View File

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

2
harbour/source/rtl/tbrowse.prg
View File

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