aboutsummaryrefslogtreecommitdiff
path: root/src/displays.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-04-16 15:22:40 +1200
committerJedidiah Barber <contact@jedbarber.id.au>2025-04-16 15:22:40 +1200
commitb3455e502f4491af22e190a14aba9565f534bb59 (patch)
tree23b823b177e8639fb5d42e17311bdc2d70a016b2 /src/displays.ads
parente62c2e2403d072640f0400c499f1dfd99e938c16 (diff)
Sokoban can now find itself to find shared data after install
Diffstat (limited to 'src/displays.ads')
-rw-r--r--src/displays.ads5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/displays.ads b/src/displays.ads
index 22f3bed..b278b6f 100644
--- a/src/displays.ads
+++ b/src/displays.ads
@@ -7,6 +7,7 @@ with
private with
+ Ada.Directories,
FLTK.Widgets.Boxes,
FLTK.Images.RGB.PNG,
Misc;
@@ -108,8 +109,8 @@ private
end record;
- Logo : FLTK.Images.RGB.PNG.PNG_Image :=
- FLTK.Images.RGB.PNG.Forge.Create (Misc.Origin & "/../share/sokoban/img/man.png");
+ Logo : FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Forge.Create
+ (Ada.Directories.Compose (Misc.Image_Path, "man.png"));
Text_Size : constant FLTK.Font_Size := 12;