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 02:40:55 +00:00
parent 38cfe68950
commit c4017d786d
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990718-22:25 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/gtapi.c
* corrected returned color strings so pair ordering is
the same as Clipper
19990718-21:20 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/gt/gtwin.c
* call hb_gtinit from gtinit

10
harbour/source/rtl/gtapi.c
View File

@@ -6,6 +6,8 @@
* GTAPI.C: Generic Terminal for Harbour
*
* Latest mods:
* 1.24 19990718 ptucker corrected returned color strings so ordering
* is the same as clipper.
* 1.23 19990718 ptucker implimented surface for gtGet/SetColorStr()
* changed to allow unlimited color pairs.
*/
@@ -265,14 +267,14 @@ int hb_gtGetColorStr(char * fpColorString)
sColors[k++] = 'N';
else
{
if( nColor & 4 )
sColors[k++] = 'R';
if( nColor & 1 )
sColors[k++] = 'B';
if( nColor & 2 )
sColors[k++] = 'G';
if( nColor & 1 )
sColors[k++] = 'B';
if( nColor & 4 )
sColors[k++] = 'R';
}
}
if( j == 0 )