diff options
Diffstat (limited to 'src/things.ads')
| -rw-r--r-- | src/things.ads | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/src/things.ads b/src/things.ads index 4f35b64..c594c95 100644 --- a/src/things.ads +++ b/src/things.ads @@ -8,9 +8,8 @@ private with - Ada.Directories, - FLTK.Images.RGB.PNG, - Misc; + Data, + FLTK.Images.RGB.PNG; package Things is @@ -43,20 +42,11 @@ private end record; - Man_Image : aliased FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Forge.Create - (Ada.Directories.Compose (Misc.Image_Path, "man.png")); - Treasure_Image : aliased FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Forge.Create - (Ada.Directories.Compose (Misc.Image_Path, "treasure.png")); + Nothing : constant Thing := (Self_Image => null); - Nothing : constant Thing := - (Self_Image => null); - - - Man : constant Thing := - (Self_Image => Man_Image'Access); - Treasure : constant Thing := - (Self_Image => Treasure_Image'Access); + Man : constant Thing := (Self_Image => Data.Man_Image); + Treasure : constant Thing := (Self_Image => Data.Treasure_Image); end Things; |