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/main.adb | |
parent | 3592854ef4ebeab8c099defb5745623eb849111b (diff) |
Made logo code more concise
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; |