diff options
Diffstat (limited to 'src/main.adb')
-rw-r--r-- | src/main.adb | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/src/main.adb b/src/main.adb index 266beb7..07e062a 100644 --- a/src/main.adb +++ b/src/main.adb @@ -2,22 +2,13 @@ with - FLTK.Images.RGB.PNG, - Adapad, - Ada.Command_Line, - Ada.Directories; + FLTK, + Adapad; function Main - return Integer -is - 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"); + return Integer is begin - Adapad.Set_Logo (Logo); Adapad.Show; return FLTK.Run; end Main; |