From b3455e502f4491af22e190a14aba9565f534bb59 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 16 Apr 2025 15:22:40 +1200
Subject: Sokoban can now find itself to find shared data after install

---
 src/displays.ads | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/displays.ads')

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;
-- 
cgit