Updated coding style, added progress log

1 files changed, 6 insertions, 4 deletions

diff --git a/src/fltk-widgets-groups-windows-single.ads b/src/fltk-widgets-groups-windows-single.ads
index 442844f..4765ce7 100644
--- a/src/fltk-widgets-groups-windows-single.ads
+++ b/src/fltk-widgets-groups-windows-single.ads
@@ -6,29 +6,32 @@ package FLTK.Widgets.Groups.Windows.Single is
     type Single_Window is new Window with private;
 
 
+
+
     function Create
            (X, Y, W, H : in Integer;
             Text       : in String)
         return Single_Window;
 
-
     function Create
            (W, H : in Integer)
         return Single_Window;
 
 
+
+
     procedure Show
            (This : in out Single_Window);
 
-
     procedure Flush
            (This : in out Single_Window);
 
 
+
+
     procedure Draw
            (This : in out Single_Window);
 
-
     function Handle
            (This  : in out Single_Window;
             Event : in     Event_Kind)
@@ -40,7 +43,6 @@ private
 
     type Single_Window is new Window with null record;
 
-
     overriding procedure Finalize
            (This : in out Single_Window);