From ede7482f170d498d0a2129da6e81ff4764e366e2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 28 Jul 2017 00:03:19 +1000
Subject: Logo file now better integrated

---
 src/main.adb | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'src/main.adb')

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