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:
Viktor Szakats
1999-06-20 20:40:19 +00:00
parent 02333b4183
commit 5639faa8ef
2 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990620-21:40 CET Victor Szel <info@szelvesz.hu>
* CGI.CH moved to /tests/working/
* source/rtl/gtapi.c missed those hb_ prefixes...
19990620-21:00 CET Victor Szel <info@szelvesz.hu>
* CGI.CH moved to /tests/working/

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

@@ -456,7 +456,7 @@ HARBOUR HB_DEVOUT( void ) /* writes a single values to the current device (scree
if( ISCHAR(2) )
{
hb_gtGetColorStr( fpOldColor );
hb_gtSetColorStr( _parc(2) );
hb_gtSetColorStr( hb_parc(2) );
}
#endif
@@ -566,26 +566,26 @@ HARBOUR HB_DISPBOX (void)
if (ISCHAR(6))
{
_gtGetColorStr(szOldColor);
_gtSetColorStr(_parc(6));
hb_gtGetColorStr(szOldColor);
hb_gtSetColorStr(hb_parc(6));
}
if (ISCHAR(1))
{
_gtBox(_parni(1), _parni(2), _parni(3), _parni(4), _parc(5));
hb_gtBox(hb_parni(1), hb_parni(2), hb_parni(3), hb_parni(4), hb_parc(5));
}
else if (ISNUM(5) && _parni(5) == 2)
else if (ISNUM(5) && hb_parni(5) == 2)
{
_gtBoxD(_parni(1), _parni(2), _parni(3), _parni(4));
hb_gtBoxD(hb_parni(1), hb_parni(2), hb_parni(3), hb_parni(4));
}
else
{
_gtBoxS(_parni(1), _parni(2), _parni(3), _parni(4));
hb_gtBoxS(hb_parni(1), hb_parni(2), hb_parni(3), hb_parni(4));
}
if (ISCHAR(6))
{
_gtSetColorStr(szOldColor);
hb_gtSetColorStr(szOldColor);
}
}
#endif
@@ -594,32 +594,32 @@ HARBOUR HB_DISPBOX (void)
HARBOUR HB_DISPBEGIN (void)
{
#ifdef USE_GTAPI
_gtDispBegin();
hb_gtDispBegin();
#endif
}
HARBOUR HB_DISPEND (void)
{
#ifdef USE_GTAPI
_gtDispBegin();
hb_gtDispBegin();
#endif
}
HARBOUR HB_DISPCOUNT (void)
{
#ifdef USE_GTAPI
_retni(_gtDispCount());
hb_retni(hb_gtDispCount());
#else
_retni(0);
hb_retni(0);
#endif
}
HARBOUR HB_ISCOLOR (void)
{
#ifdef USE_GTAPI
_retl(_gtIsColor());
hb_retl(hb_gtIsColor());
#else
_retl(FALSE);
hb_retl(FALSE);
#endif
}
@@ -628,7 +628,7 @@ HARBOUR HB_NOSNOW (void)
#ifdef USE_GTAPI
if (ISLOG(1))
{
_gtSetSnowFlag(_parl(1));
hb_gtSetSnowFlag(hb_parl(1));
}
#endif
}