diff options
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; |