diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-15 00:41:02 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-15 00:41:02 +1200 |
| commit | f422ec5ac8102abb99a92d4742b4baa88130b75f (patch) | |
| tree | 8fd8daebd34504dfd0398a46dedbd7635648d726 /src/windows.ads | |
| parent | 78bf43af446adf83fdc0554c63ccdb631836d916 (diff) | |
Executable now knows where it is, installs and finds logo image correctly, better build config
Diffstat (limited to 'src/windows.ads')
| -rw-r--r-- | src/windows.ads | 15 |
1 files changed, 4 insertions, 11 deletions
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; + |