From 79e6d87c5ed050802d9d5159f2c71f7425597dd2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 28 Jul 2017 00:29:45 +1000
Subject: Code style change for with/use clauses

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

(limited to 'src/main.adb')

diff --git a/src/main.adb b/src/main.adb
index f917081..266beb7 100644
--- a/src/main.adb
+++ b/src/main.adb
@@ -1,18 +1,21 @@
 
 
-with FLTK.Images.RGB.PNG;
-with Adapad;
-with Ada.Command_Line;
-with Ada.Directories;
+with
 
+    FLTK.Images.RGB.PNG,
+    Adapad,
+    Ada.Command_Line,
+    Ada.Directories;
 
-function Main return Integer
+
+function Main
+    return Integer
 is
-    Containing_Dir : String :=
-        Ada.Directories.Containing_Directory
-            (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
+    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 (Containing_Dir & "/../share/adapad/logo.png");
+        FLTK.Images.RGB.PNG.Create (Origin & "/../share/adapad/logo.png");
 begin
     Adapad.Set_Logo (Logo);
     Adapad.Show;
-- 
cgit