Updated coding style, added progress log

1 files changed, 6 insertions, 5 deletions

diff --git a/src/fltk-widgets-buttons.ads b/src/fltk-widgets-buttons.ads
index 981c313..0cf2c61 100644
--- a/src/fltk-widgets-buttons.ads
+++ b/src/fltk-widgets-buttons.ads
@@ -5,34 +5,36 @@ package FLTK.Widgets.Buttons is
 
     type Button is new Widget with private;
 
-
     type State is (Off, On);
 
 
+
+
     function Create
            (X, Y, W, H : in Integer;
             Text       : in String)
         return Button;
 
 
+
+
     function Get_State
            (This : in Button)
         return State;
 
-
     procedure Set_State
            (This : in out Button;
             St   : in     State);
 
-
     procedure Set_Only
            (This : in out Button);
 
 
+
+
     procedure Draw
            (This : in out Button);
 
-
     function Handle
            (This  : in out Button;
             Event : in     Event_Kind)
@@ -44,7 +46,6 @@ private
 
     type Button is new Widget with null record;
 
-
     overriding procedure Finalize
            (This : in out Button);