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-30 02:12:54 +00:00
parent 50f457117b
commit 9f0258d111
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990729-22:00 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/console.c
* HB_SHADOW/DBGSHADOW
5th param is optinal and defaults to 7 (w/n)
19990729-19:40 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/console.c
source/rtl/gtapi.c

11
harbour/source/rtl/console.c
View File

@@ -983,8 +983,15 @@ HARBOUR HB_NOSNOW (void)
HARBOUR HB_SHADOW (void)
{
#ifdef HARBOUR_USE_GTAPI
if( hb_pcount() == 5 )
gtSetAttribute(hb_parni(1)+1,hb_parni(2)+1,hb_parni(3)+1,hb_parni(4)+1,hb_parni(5));
USHORT uiAttr;
if( hb_pcount() == 4 )
uiAttr = 7;
else if( hb_pcount() == 5 )
uiAttr = hb_parni(5);
if( hb_pcount() > 3 )
gtSetAttribute(hb_parni(1)+1,hb_parni(2)+1,hb_parni(3)+1,hb_parni(4)+1,uiAttr);
#endif
}