Updated coding style, added progress log

1 files changed, 8 insertions, 7 deletions

diff --git a/src/fltk.ads b/src/fltk.ads
index 6c66352..203ee5e 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -1,8 +1,13 @@
 
 
-with Ada.Finalization;
-private with Interfaces.C;
-private with System;
+with
+
+    Ada.Finalization;
+
+private with
+
+    Interfaces.C,
+    System;
 
 
 package FLTK is
@@ -187,7 +192,6 @@ private
            (This : in Wrapper)
         return Boolean;
 
-
     type Wrapper is abstract new Ada.Finalization.Limited_Controlled with
         record
             Void_Ptr : System.Address;
@@ -197,7 +201,6 @@ private
     --  unsure if the above invariant is doing what I'm after
     --  oh well, something to work on
 
-
     overriding procedure Initialize
            (This : in out Wrapper);
 
@@ -219,12 +222,10 @@ private
             Keypress : Interfaces.Unsigned_16;
         end record;
 
-
     function Key_To_C
            (Key : in Shortcut_Key)
         return Interfaces.C.unsigned_long;
 
-
     function C_To_Key
            (Key : in Interfaces.C.unsigned_long)
         return Shortcut_Key;