From f422ec5ac8102abb99a92d4742b4baa88130b75f Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 15 Apr 2025 00:41:02 +1200
Subject: Executable now knows where it is, installs and finds logo image
 correctly, better build config

---
 src/windows.ads | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

(limited to 'src/windows.ads')

diff --git a/src/windows.ads b/src/windows.ads
index 8050467..222efcf 100644
--- a/src/windows.ads
+++ b/src/windows.ads
@@ -3,12 +3,8 @@
 with
 
     FLTK.Widgets.Groups.Windows.Double,
-    FLTK.Images.RGB.PNG;
-
-private with
-
-    Ada.Command_Line,
-    Ada.Directories;
+    FLTK.Images.RGB,
+    Images;
 
 
 package Windows is
@@ -27,12 +23,9 @@ private
            (Item : in out FLTK.Widgets.Widget'Class);
 
 
-    Origin : String := Ada.Directories.Containing_Directory
-        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
-
-    Logo : FLTK.Images.RGB.PNG.PNG_Image :=
-        FLTK.Images.RGB.PNG.Forge.Create (Origin & "/../share/adapad/logo.png");
+    Logo : FLTK.Images.RGB.RGB_Image'Class := Images.Load_Logo;
 
 
 end Windows;
 
+
-- 
cgit