Browse Source

amunits: renamed Graphics unit to AGraphics to match AROS and MorphOS, added PACKRECORDS 2 at a few places

git-svn-id: trunk@28557 -
Károly Balogh 11 years ago
parent
commit
55e2893f39

+ 1 - 1
.gitattributes

@@ -1029,6 +1029,7 @@ packages/amunits/examples/wbtest.pas svneol=native#text/plain
 packages/amunits/fpmake.pp svneol=native#text/plain
 packages/amunits/scripts/getrecord.rexx svneol=native#text/plain
 packages/amunits/scripts/make.rexx svneol=native#text/plain
+packages/amunits/src/coreunits/agraphics.pas svneol=native#text/plain
 packages/amunits/src/coreunits/amigados.pas svneol=native#text/plain
 packages/amunits/src/coreunits/amigaguide.pas svneol=native#text/plain
 packages/amunits/src/coreunits/amigalib.pas svneol=native#text/plain
@@ -1053,7 +1054,6 @@ packages/amunits/src/coreunits/expansionbase.pas svneol=native#text/plain
 packages/amunits/src/coreunits/gadtools.pas svneol=native#text/plain
 packages/amunits/src/coreunits/gameport.pas svneol=native#text/plain
 packages/amunits/src/coreunits/gradientslider.pas svneol=native#text/plain
-packages/amunits/src/coreunits/graphics.pas svneol=native#text/plain
 packages/amunits/src/coreunits/hardblocks.pas svneol=native#text/plain
 packages/amunits/src/coreunits/hardware.pas svneol=native#text/plain
 packages/amunits/src/coreunits/icon.pas svneol=native#text/plain

+ 1 - 1
packages/amunits/Makefile.fpc.fpcmake

@@ -9,7 +9,7 @@ version=2.7.1
 [target]
 units= msgbox amigautils wbargs vartags pastoc tagsarray systemvartags deadkeys \
        deadkeys consoleio pcq longarray linklist hisoft exec timerutils easyasl \
-       doublebuffer intuition graphics amigalib nonvolatile iffparse hardware  \
+       doublebuffer intuition agraphics amigalib nonvolatile iffparse hardware  \
        expansion diskfont conunit amigados configvars keyboard bootblock icon  \
        cd realtime rexx translator scsidisk lowlevel configregs prefs parallel \
        gadtools prtgfx romboot_base trackdisk expansionbase amigaguide         \

+ 1 - 1
packages/amunits/fpmake.pp

@@ -51,7 +51,7 @@ begin
     T:=P.Targets.AddUnit('doublebuffer.pas');
     T:=P.Targets.AddUnit('exec.pas');
     T:=P.Targets.AddUnit('intuition.pas');
-    T:=P.Targets.AddUnit('graphics.pas');
+    T:=P.Targets.AddUnit('agraphics.pas');
     T:=P.Targets.AddUnit('amigalib.pas');
     T:=P.Targets.AddUnit('nonvolatile.pas');
     T:=P.Targets.AddUnit('iffparse.pas');

+ 2 - 1
packages/amunits/src/coreunits/graphics.pas → packages/amunits/src/coreunits/agraphics.pas

@@ -55,13 +55,14 @@
     [email protected]
 
 }
+{$PACKRECORDS 2}
 
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
     {$smartlink on}
 {$endif use_amiga_smartlink}
 
-unit graphics;
+unit agraphics;
 
 INTERFACE
 

+ 1 - 1
packages/amunits/src/coreunits/amigados.pas

@@ -43,7 +43,7 @@
 
     [email protected]
 }
-
+{$PACKRECORDS 2}
 
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}

+ 1 - 1
packages/amunits/src/coreunits/amigaprinter.pas

@@ -18,7 +18,7 @@ unit amigaprinter;
 
 INTERFACE
 
-uses exec, graphics,utility,intuition,prefs;
+uses exec,agraphics,utility,intuition,prefs;
 
 
 Const

+ 1 - 1
packages/amunits/src/coreunits/asl.pas

@@ -57,7 +57,7 @@
 UNIT asl;
 
 INTERFACE
-uses exec, utility, workbench, graphics;
+uses exec, utility, workbench, agraphics;
 
 {************************************************************************}
 

+ 1 - 1
packages/amunits/src/coreunits/datatypes.pas

@@ -56,7 +56,7 @@ unit datatypes;
 INTERFACE
 
 uses exec, amigados, intuition, utility,
-     graphics, iffparse, amigaprinter, prtbase;
+     agraphics, iffparse, amigaprinter, prtbase;
 
 const
 {***************************************************************************}

+ 1 - 1
packages/amunits/src/coreunits/diskfont.pas

@@ -44,7 +44,7 @@ unit diskfont;
 
 INTERFACE
 
-uses exec, graphics,utility;
+uses exec, agraphics,utility;
 
 Const
 

+ 1 - 0
packages/amunits/src/coreunits/exec.pas

@@ -71,6 +71,7 @@
 
     [email protected]
 }
+{$PACKRECORDS 2}
 
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}

+ 1 - 1
packages/amunits/src/coreunits/gadtools.pas

@@ -55,7 +55,7 @@ unit gadtools;
 
 INTERFACE
 
-uses exec, intuition, graphics, utility;
+uses exec, intuition, agraphics, utility;
 
 
 {------------------------------------------------------------------------}

+ 1 - 1
packages/amunits/src/coreunits/icon.pas

@@ -61,7 +61,7 @@ unit icon;
 INTERFACE
 
 
-uses exec, workbench,utility,amigados,graphics,intuition,datatypes;
+uses exec, workbench,utility,amigados,agraphics,intuition,datatypes;
 
     const
     ICONA_Dummy = TAG_USER + $9000;

+ 2 - 1
packages/amunits/src/coreunits/intuition.pas

@@ -45,6 +45,7 @@
    [email protected] Nils Sjoholm
 
 }
+{$PACKRECORDS 2}
 
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
@@ -56,7 +57,7 @@ unit intuition;
 INTERFACE
 
 
-uses exec, graphics, utility, inputevent, timer, layers;
+uses exec, agraphics, utility, inputevent, timer, layers;
 
 {
  * NOTE:  intuition/iobsolete.h is included at the END of this file!

+ 1 - 1
packages/amunits/src/coreunits/layers.pas

@@ -40,7 +40,7 @@
 UNIT layers;
 
 INTERFACE
-USES exec, graphics, utility;
+USES exec, agraphics, utility;
 
 const
 

+ 1 - 1
packages/amunits/src/coreunits/prefs.pas

@@ -32,7 +32,7 @@
 unit prefs;
 
 INTERFACE
-uses exec, iffparse, graphics, timer, intuition;
+uses exec, iffparse, agraphics, timer, intuition;
 
 
 { Asl }

+ 1 - 1
packages/amunits/src/coreunits/workbench.pas

@@ -68,7 +68,7 @@ unit workbench;
 
 INTERFACE
 
-uses exec,amigados,utility, intuition,graphics;
+uses exec,amigados,utility,intuition,agraphics;
 
 
 

+ 1 - 1
packages/amunits/src/otherlibs/cybergraphics.pas

@@ -37,7 +37,7 @@
 UNIT CYBERGRAPHICS;
 
 INTERFACE
-USES Exec,graphics,utility;
+USES Exec,agraphics,utility;
 
 VAR CyberGfxBase : pLibrary;
 

+ 1 - 1
packages/amunits/src/otherlibs/gtlayout.pas

@@ -51,7 +51,7 @@ UNIT GTLAYOUT;
 
 INTERFACE
 
-USES Exec,intuition,utility, gadtools,graphics;
+USES Exec,intuition,utility, gadtools,agraphics;
 
 
 

+ 1 - 1
packages/amunits/src/otherlibs/guigfx.pas

@@ -37,7 +37,7 @@
 UNIT GUIGFX;
 
 INTERFACE
-USES Exec,utility,graphics;
+USES Exec,utility,agraphics;
 
 VAR GuiGFXBase : pLibrary;
 

+ 1 - 1
packages/amunits/src/otherlibs/mui.pas

@@ -147,7 +147,7 @@ interface
      Items marked with "Custom Class" are for use in custom classes only!
    }
 
-uses exec, intuition,utility,graphics,iffparse;
+uses exec, intuition,utility,agraphics,iffparse;
 
 
   const

+ 1 - 1
packages/amunits/src/otherlibs/mysticview.pas

@@ -36,7 +36,7 @@
 UNIT MYSTICVIEW;
 
 INTERFACE
-USES Exec,graphics,utility,intuition;
+USES Exec,agraphics,utility,intuition;
 
 VAR MysticBase : pLibrary;
 

+ 1 - 1
packages/amunits/src/otherlibs/picasso96api.pas

@@ -43,7 +43,7 @@
 UNIT PICASSO96API;
 
 INTERFACE
-USES Exec, utility, graphics, intuition;
+USES Exec, utility, agraphics, intuition;
 
   {  Picasso96.h -- include File
       (C) Copyright 1996-98 Alexander Kneer & Tobias Abt

+ 1 - 1
packages/amunits/src/otherlibs/render.pas

@@ -37,7 +37,7 @@
 UNIT RENDER;
 
 INTERFACE
-USES Exec,utility,graphics;
+USES Exec,utility,agraphics;
 
 VAR RenderBase : pLibrary;
 

+ 1 - 1
packages/amunits/src/otherlibs/reqtools.pas

@@ -47,7 +47,7 @@ UNIT REQTOOLS;
 
 INTERFACE
 
-USES Exec, intuition, amigados, diskfont, graphics, utility;
+USES Exec, intuition, amigados, diskfont, agraphics, utility;
 
 
 

+ 1 - 1
packages/amunits/src/otherlibs/triton.pas

@@ -43,7 +43,7 @@ UNIT TRITON;
 
 INTERFACE
 
-uses exec, intuition, graphics, utility;
+uses exec, intuition, agraphics, utility;
 
 
 {* ------------------------------------------------------------------------------ *}

+ 1 - 1
packages/amunits/src/otherlibs/ttengine.pas

@@ -37,7 +37,7 @@
 UNIT TTENGINE;
 
 INTERFACE
-USES Exec,utility,graphics;
+USES Exec,utility,agraphics;
 
 VAR TTEngineBase : pLibrary;
 

+ 1 - 1
packages/amunits/src/utilunits/doublebuffer.pas

@@ -67,7 +67,7 @@ unit doublebuffer;
 
 interface
 
-uses exec, intuition, graphics;
+uses exec, intuition, agraphics;
 
 {
     OpenDoubleBuffer opens the Screen described in "ns" without

+ 1 - 1
packages/amunits/src/utilunits/systemvartags.pas

@@ -26,7 +26,7 @@ unit systemvartags;
 interface
 
 uses exec,amigados, amigaguide, asl, bullet, intuition, datatypes ,
-     gadtools, graphics, locale, lowlevel, realtime,
+     gadtools, agraphics, locale, lowlevel, realtime,
      workbench, utility, tagsarray;
 
 {    As of today boolean and char doesn't function in