Updated coding style, added progress log

1 files changed, 22 insertions, 33 deletions

diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb
index 97a640a..7ada504 100644
--- a/src/fltk-widgets-groups-windows.adb
+++ b/src/fltk-widgets-groups-windows.adb
@@ -1,9 +1,14 @@
 
 
-with Interfaces.C;
-with System;
-with FLTK.Images.RGB;
-use type System.Address;
+with
+
+    Interfaces.C,
+    System,
+    FLTK.Images.RGB;
+
+use type
+
+    System.Address;
 
 
 package body FLTK.Widgets.Groups.Windows is
@@ -18,6 +23,8 @@ package body FLTK.Widgets.Groups.Windows is
     pragma Import (C, window_set_handle_hook, "window_set_handle_hook");
 
 
+
+
     function new_fl_window
            (X, Y, W, H : in Interfaces.C.int;
             Text       : in Interfaces.C.char_array)
@@ -34,6 +41,8 @@ package body FLTK.Widgets.Groups.Windows is
     pragma Import (C, free_fl_window, "free_fl_window");
 
 
+
+
     procedure fl_window_show
            (W : in System.Address);
     pragma Import (C, fl_window_show, "fl_window_show");
@@ -46,6 +55,9 @@ package body FLTK.Widgets.Groups.Windows is
            (W : in System.Address);
     pragma Import (C, fl_window_make_current, "fl_window_make_current");
 
+
+
+
     function fl_window_get_border
            (W : in System.Address)
         return Interfaces.C.unsigned;
@@ -88,6 +100,9 @@ package body FLTK.Widgets.Groups.Windows is
             C : in Interfaces.C.int);
     pragma Import (C, fl_window_set_default_cursor, "fl_window_set_default_cursor");
 
+
+
+
     function fl_window_get_x_root
            (W : in System.Address)
         return Interfaces.C.int;
@@ -108,6 +123,9 @@ package body FLTK.Widgets.Groups.Windows is
         return Interfaces.C.int;
     pragma Import (C, fl_window_get_decorated_h, "fl_window_get_decorated_h");
 
+
+
+
     procedure fl_window_draw
            (W : in System.Address);
     pragma Import (C, fl_window_draw, "fl_window_draw");
@@ -159,8 +177,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Create;
 
 
-
-
     function Create
            (W, H : in Integer)
         return Window is
@@ -187,8 +203,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Show;
 
 
-
-
     procedure Hide
            (This : in out Window) is
     begin
@@ -196,8 +210,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Hide;
 
 
-
-
     procedure Make_Current
            (This : in out Window) is
     begin
@@ -215,7 +227,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Get_Border;
 
 
-
     procedure Set_Border
            (This : in out Window;
             To   : in     Border_State) is
@@ -224,8 +235,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Border;
 
 
-
-
     procedure Set_Label
            (This : in out Window;
             Text : in     String) is
@@ -234,8 +243,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Label;
 
 
-
-
     procedure Set_Size_Range
            (This                           : in out Window;
             Min_W, Min_H                   : in     Integer;
@@ -254,8 +261,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Size_Range;
 
 
-
-
     procedure Set_Icon
            (This : in out Window;
             Pic  : in out FLTK.Images.RGB.RGB_Image'Class) is
@@ -266,8 +271,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Icon;
 
 
-
-
     procedure Set_Modal
            (This : in out Window) is
     begin
@@ -275,8 +278,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Modal;
 
 
-
-
     procedure Set_Non_Modal
            (This : in out Window) is
     begin
@@ -284,8 +285,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Non_Modal;
 
 
-
-
     procedure Set_Cursor
            (This : in out Window;
             To   : in     Cursor) is
@@ -294,8 +293,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Set_Cursor;
 
 
-
-
     procedure Set_Default_Cursor
            (This : in out Window;
             To   : in     Cursor) is
@@ -314,8 +311,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Get_X_Root;
 
 
-
-
     function Get_Y_Root
            (This : in Window)
         return Integer is
@@ -324,8 +319,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Get_Y_Root;
 
 
-
-
     function Get_Decorated_W
            (This : in Window)
         return Integer is
@@ -334,8 +327,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Get_Decorated_W;
 
 
-
-
     function Get_Decorated_H
            (This : in Window)
         return Integer is
@@ -353,8 +344,6 @@ package body FLTK.Widgets.Groups.Windows is
     end Draw;
 
 
-
-
     function Handle
            (This  : in out Window;
             Event : in     Event_Kind)