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