From f7bfc040a062b3f5a3549abd87463221c667f1d5 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 31 Jul 2017 00:16:24 +1000
Subject: Made logo code more concise

---
 src/main.adb | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

(limited to 'src/main.adb')

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