Browse Source

* Renamefest

marco 23 years ago
parent
commit
4371078c5d
5 changed files with 23 additions and 19 deletions
  1. 4 5
      demo/graph/fpctris.pp
  2. 5 2
      demo/graph/ftristxt.inc
  3. 4 5
      demo/graph/gameunit.pp
  4. 4 4
      demo/graph/quad.pp
  5. 6 3
      demo/graph/samegame.pp

+ 4 - 5
demo/graph/fpctris.pp

@@ -44,10 +44,6 @@ TheHeight-1
 
 }
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
-
 {$ifdef UseGraphics}
  {$ifdef Win32}
    {$define Win32Graph}
@@ -857,7 +853,10 @@ END.
 
 {
   $Log$
-  Revision 1.3  2001-12-11 11:24:52  marco
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2001/12/11 11:24:52  marco
    * some linux <-> unix fixes.
 
   Revision 1.2  2001/11/11 21:09:49  marco

+ 5 - 2
demo/graph/ftristxt.inc

@@ -61,7 +61,7 @@ BEGIN
    Write('Escape to quit');
    GotoXY(40,15);
    Write('"S" to show the highscores');
-   {$IFDEF Linux}
+   {$IFDEF Unix}
    GotoXY(40,16);
    Write('"i" try to switch to IBM character set');
    {$ENDIF}
@@ -239,7 +239,10 @@ END;
 
 {
   $Log$
-  Revision 1.2  2001-11-11 21:09:49  marco
+  Revision 1.3  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  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

+ 4 - 5
demo/graph/gameunit.pp

@@ -26,10 +26,6 @@ INTERFACE
                     Linux }
 
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
-
 {$ifdef Unix}
   {$define MouseAPI}
 {$endif}
@@ -915,7 +911,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.5  2002-02-25 12:23:05  marco
+  Revision 1.6  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.5  2002/02/25 12:23:05  marco
    * Fixes for Quad Win32 GUI mode
 
   Revision 1.4  2002/02/22 21:40:09  carl

+ 4 - 4
demo/graph/quad.pp

@@ -22,9 +22,6 @@ Inspired by: Jos Dickman''s triple memory!
 Old version requires egavga.bgi. FPC doesn't require BGI's (VGA and VESA
 support are built in the Graph, others are ignored).}
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
 {$Define UseGraphics}
 
 {$ifdef UseGraphics}
@@ -816,7 +813,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.3  2002-02-27 16:29:54  carl
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2002/02/27 16:29:54  carl
   * We should initialize the mouse!
 
   Revision 1.2  2002/02/25 12:23:05  marco

+ 6 - 3
demo/graph/samegame.pp

@@ -201,7 +201,7 @@ BEGIN
  GotoXY(60,5);   Write('NEW game');
  GotoXY(60,6);   Write('HELP');
  GotoXY(60,7);   Write('END game');
- {$IFDEF Linux}
+ {$IFDEF Unix}
   GotoXY(60,8);   Write('Force IBM charset');
  {$ENDIF}
   SetDefaultColor;
@@ -455,7 +455,7 @@ BEGIN
              ShowHelp;
              BuildScreen;
             END;
-           {$IFDEF Linux}
+           {$IFDEF Unix}
            IF Y=7 THEN
             BEGIN
              write(#27+'(K');
@@ -594,7 +594,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.3  2002-02-22 21:41:22  carl
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2002/02/22 21:41:22  carl
   * range check error fix
 
   Revision 1.2  2001/11/11 21:09:50  marco