diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-07-31 00:16:24 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-31 00:16:24 +1000 |
commit | f7bfc040a062b3f5a3549abd87463221c667f1d5 (patch) | |
tree | 8c5564a52f242bef674176a03b66e1812c8975a6 /src/windows.ads | |
parent | 3592854ef4ebeab8c099defb5745623eb849111b (diff) |
Made logo code more concise
Diffstat (limited to 'src/windows.ads')
-rw-r--r-- | src/windows.ads | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/src/windows.ads b/src/windows.ads index dbe9cda..eac1dc0 100644 --- a/src/windows.ads +++ b/src/windows.ads @@ -5,16 +5,16 @@ with FLTK.Widgets.Groups.Windows.Double, FLTK.Images.RGB.PNG; +private with -package Windows is + Ada.Command_Line, + Ada.Directories; - type Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; +package Windows is - procedure Set_Logo - (This : in out Window; - Logo : in out FLTK.Images.RGB.PNG.PNG_Image); + type Window is new FLTK.Widgets.Groups.Windows.Double.Double_Window with private; private @@ -27,5 +27,12 @@ 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.Create (Origin & "/../share/adapad/logo.png"); + + end Windows; |