diff options
Diffstat (limited to 'src/main.adb')
-rw-r--r-- | src/main.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/main.adb b/src/main.adb index 7f31554..f917081 100644 --- a/src/main.adb +++ b/src/main.adb @@ -1,11 +1,20 @@ -with FLTK; +with FLTK.Images.RGB.PNG; with Adapad; +with Ada.Command_Line; +with Ada.Directories; -function Main return Integer is +function Main return Integer +is + Containing_Dir : 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 (Containing_Dir & "/../share/adapad/logo.png"); begin + Adapad.Set_Logo (Logo); Adapad.Show; return FLTK.Run; end Main; |