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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-07-19 05:05:50 +00:00
parent 32649abcf8
commit 8413d021cf
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990719-00:55 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/set.c
* Trap for NIL param in Set( _SET_SETCOLOR, NIL )
19990719-00:12 EDT Paul Tucker <ptucker@sympatico.ca>
* corrected new parameter check
added {"SET",1,3}

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

@@ -672,7 +672,7 @@ HARBOUR HB_SET (void)
if (args > 1) hb_set.HB_SET_COLOR = set_string (pArg2, hb_set.HB_SET_COLOR);
*/
if (hb_set.HB_SET_COLOR) hb_xfree(hb_set.HB_SET_COLOR );
hb_retc( hb_set.HB_SET_COLOR = hb_SetColor( args>1 ? pArg2->item.asString.value : (char *)0));
hb_retc( hb_set.HB_SET_COLOR = hb_SetColor( args>1 ? IS_NIL(pArg2) ? "" : pArg2->item.asString.value : (char *)0));
break;
case HB_SET_CONFIRM :
hb_retl (hb_set.HB_SET_CONFIRM);