From 2aac034b614d6de39f4aee9f41dba8f2bcc63d8d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 26 May 2016 04:35:58 +1000
Subject: In the interests of readability and consistent style...

---
 fltk-widgets-groups-windows.adb | 33 +++++++++++++++++++++------------
 1 file changed, 21 insertions(+), 12 deletions(-)

(limited to 'fltk-widgets-groups-windows.adb')

diff --git a/fltk-widgets-groups-windows.adb b/fltk-widgets-groups-windows.adb
index c304521..806ebf3 100644
--- a/fltk-widgets-groups-windows.adb
+++ b/fltk-widgets-groups-windows.adb
@@ -10,29 +10,35 @@ package body FLTK.Widgets.Groups.Windows is
 
     function new_fl_window
            (X, Y, W, H : in Interfaces.C.int;
-            L          : in Interfaces.C.char_array)
+            Label      : in Interfaces.C.char_array)
         return System.Address;
     pragma Import (C, new_fl_window, "new_fl_window");
 
-    function new_fl_window2 (W, H : in Interfaces.C.int) return System.Address;
+    function new_fl_window2
+           (W, H : in Interfaces.C.int)
+        return System.Address;
     pragma Import (C, new_fl_window2, "new_fl_window2");
 
-    procedure free_fl_window (W : in System.Address);
+    procedure free_fl_window
+           (W : in System.Address);
     pragma Import (C, free_fl_window, "free_fl_window");
 
-    procedure fl_window_show (W : in System.Address);
+    procedure fl_window_show
+           (W : in System.Address);
     pragma Import (C, fl_window_show, "fl_window_show");
 
 
 
 
-    procedure fl_group_end (G : in System.Address);
+    procedure fl_group_end
+           (G : in System.Address);
     pragma Import (C, fl_group_end, "fl_group_end");
 
 
 
 
-    procedure Finalize (This : in out Window) is
+    procedure Finalize
+           (This : in out Window) is
     begin
         if (This.Void_Ptr /= System.Null_Address) then
             free_fl_window (This.Void_Ptr);
@@ -43,14 +49,13 @@ package body FLTK.Widgets.Groups.Windows is
 
 
     function Create
-           (X, Y, W, H : Integer;
-            Label      : String)
+           (X, Y, W, H : in Integer;
+            Label      : in String)
         return Window is
 
         VP : System.Address;
 
     begin
-
         VP := new_fl_window
                    (Interfaces.C.int (X),
                     Interfaces.C.int (Y),
@@ -59,14 +64,17 @@ package body FLTK.Widgets.Groups.Windows is
                     Interfaces.C.To_C (Label));
         fl_group_end (VP);
         return (Ada.Finalization.Limited_Controlled with Void_Ptr => VP);
-
     end Create;
 
 
 
 
-    function Create (W, H : in Integer) return Window is
+    function Create
+           (W, H : in Integer)
+        return Window is
+
         VP : System.Address;
+
     begin
         VP := new_fl_window2 (Interfaces.C.int (W), Interfaces.C.int (H));
         fl_group_end (VP);
@@ -76,7 +84,8 @@ package body FLTK.Widgets.Groups.Windows is
 
 
 
-    procedure Show (W : in Window) is
+    procedure Show
+           (W : in Window) is
     begin
         fl_window_show (W.Void_Ptr);
     end Show;
-- 
cgit