From fb37523537cdb69a31dede401a604981ce8b7b9d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 17 Jun 2017 11:28:39 +1000
Subject: Updated coding style, added progress log

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

(limited to 'src/fltk.adb')

diff --git a/src/fltk.adb b/src/fltk.adb
index ad70379..8970efd 100644
--- a/src/fltk.adb
+++ b/src/fltk.adb
@@ -1,9 +1,14 @@
 
 
-with Interfaces.C;
-with System;
-use type System.Address;
-use type Interfaces.C.unsigned_long;
+with
+
+    Interfaces.C,
+    System;
+
+use type
+
+    Interfaces.C.unsigned_long,
+    System.Address;
 
 
 package body FLTK is
@@ -32,8 +37,6 @@ package body FLTK is
     end Has_Valid_Ptr;
 
 
-
-
     procedure Initialize
            (This : in out Wrapper) is
     begin
@@ -65,8 +68,6 @@ package body FLTK is
     end "+";
 
 
-
-
     function "+"
            (Left  : in Modifier_Key;
             Right : in Pressable_Key)
@@ -79,8 +80,6 @@ package body FLTK is
     end "+";
 
 
-
-
     function "+"
            (Left  : in Modifier_Key;
             Right : in Shortcut_Key)
@@ -104,8 +103,6 @@ package body FLTK is
     end Key_To_C;
 
 
-
-
     function C_To_Key
            (Key : in Interfaces.C.unsigned_long)
         return Shortcut_Key is
-- 
cgit