summaryrefslogtreecommitdiff
path: root/src/main.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/main.adb')
-rw-r--r--src/main.adb15
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;