Updated coding style, added progress log

1 files changed, 6 insertions, 3 deletions

diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads
index 174019a..47b1e1c 100644
--- a/src/fltk-widgets-menus-menu_buttons.ads
+++ b/src/fltk-widgets-menus-menu_buttons.ads
@@ -5,26 +5,30 @@ package FLTK.Widgets.Menus.Menu_Buttons is
 
     type Menu_Button is new Menu with private;
 
-
     --  signifies which mouse buttons cause the menu to appear
     type Popup_Buttons is (No_Popup, Popup1, Popup2, Popup12, Popup3, Popup13, Popup23, Popup123);
 
 
+
+
     function Create
            (X, Y, W, H : in Integer;
             Text       : in String)
         return Menu_Button;
 
 
+
+
     procedure Set_Popup_Kind
            (This : in out Menu_Button;
             Pop  : in     Popup_Buttons);
 
 
+
+
     procedure Draw
            (This : in out Menu_Button);
 
-
     function Handle
            (This  : in out Menu_Button;
             Event : in     Event_Kind)
@@ -36,7 +40,6 @@ private
 
     type Menu_Button is new Menu with null record;
 
-
     overriding procedure Finalize
            (This : in out Menu_Button);