Logo file now better integrated

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;