paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some linux <-> unix fixes.

Browse Source
This commit is contained in:
marco 2001-12-11 11:24:52 +00:00
parent 20e722e8e1
commit 1d0f4deffe
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
demo/graph/fpctris.pp
View File

@ -44,6 +44,10 @@ TheHeight-1
}
{$ifdef Linux}
{$define Unix}
{$endif}
{$ifdef UseGraphics}
{$ifdef Win32}
{$define Win32Graph}
@ -611,7 +615,7 @@ BEGIN
{$IFNDEF UseGraphics}
HelpMode :=TRUE;
{$ENDIF}
{$IFDEF Linux}
{$IFDEF Unix}
UseColor:=FALSE;
{$ELSE}
UseColor:=TRUE;
@ -773,7 +777,7 @@ ORD('p') : BEGIN {"p" : Pause}
Key:=ORD(ReadKey);
END;
{$IFNDEF UseGraphics}
{$IFDEF Linux}
{$IFDEF Unix}
ORD('i') : write(#27+'(K');
{$ENDIF}
{$ENDIF}
@ -782,7 +786,7 @@ ORD('p') : BEGIN {"p" : Pause}
ELSE
BEGIN
{$IFDEF Linux}
{$IFDEF Unix}
GotoXY(50,10); {Get cursor out of the way, CursorOn/Off
doesn't work on telnet-terminals}
{$ENDIF}
@ -853,7 +857,10 @@ END.
{
$Log$
Revision 1.2 2001-11-11 21:09:49 marco
Revision 1.3 2001-12-11 11:24:52 marco
* some linux <-> unix fixes.
Revision 1.2 2001/11/11 21:09:49 marco
* Gameunit, Fpctris and samegame fixed for win32 GUI
Revision 1.1 2001/05/03 21:39:33 peter