Updated coding style, added progress log

1 files changed, 15 insertions, 10 deletions

diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb
index d0c0ed7..ddfc934 100644
--- a/src/fltk-widgets-menus.adb
+++ b/src/fltk-widgets-menus.adb
@@ -1,11 +1,16 @@
 
 
-with Interfaces.C;
-with System;
-with FLTK.Menu_Items;
-use type System.Address;
-use type Interfaces.C.int;
-use type Interfaces.C.unsigned_long;
+with
+
+    Interfaces.C,
+    System,
+    FLTK.Menu_Items;
+
+use type
+
+    System.Address,
+    Interfaces.C.int,
+    Interfaces.C.unsigned_long;
 
 
 package body FLTK.Widgets.Menus is
@@ -30,6 +35,8 @@ package body FLTK.Widgets.Menus is
     pragma Import (C, menu_set_handle_hook, "menu_set_handle_hook");
 
 
+
+
     function new_fl_menu
            (X, Y, W, H : in Interfaces.C.int;
             Text       : in Interfaces.C.char_array)
@@ -41,6 +48,8 @@ package body FLTK.Widgets.Menus is
     pragma Import (C, free_fl_menu, "free_fl_menu");
 
 
+
+
     function fl_menu_add
            (M    : in System.Address;
             T    : in Interfaces.C.char_array;
@@ -143,8 +152,6 @@ package body FLTK.Widgets.Menus is
     end Add;
 
 
-
-
     function Find_Item
            (This : in Menu'Class;
             Name : in String)
@@ -158,8 +165,6 @@ package body FLTK.Widgets.Menus is
     end Find_Item;
 
 
-
-
     function Chosen
            (This : in Menu'Class)
         return FLTK.Menu_Items.Menu_Item is