In the interests of readability and consistent style...

1 files changed, 14 insertions, 4 deletions

diff --git a/fltk-widgets-groups-windows-double.ads b/fltk-widgets-groups-windows-double.ads
index 6876508..a276e48 100644
--- a/fltk-widgets-groups-windows-double.ads
+++ b/fltk-widgets-groups-windows-double.ads
@@ -6,10 +6,19 @@ package FLTK.Widgets.Groups.Windows.Double is
     type Double_Window is new Window with private;
 
 
-    function Create (X, Y, W, H : Integer; Label : String) return Double_Window;
-    function Create (W, H : in Integer) return Double_Window;
+    function Create
+           (X, Y, W, H : in Integer;
+            Label      : in String)
+        return Double_Window;
 
-    procedure Show (W : in Double_Window);
+
+    function Create
+           (W, H : in Integer)
+        return Double_Window;
+
+
+    procedure Show
+           (W : in Double_Window);
 
 
 private
@@ -18,7 +27,8 @@ private
     type Double_Window is new Window with null record;
 
 
-    overriding procedure Finalize (This : in out Double_Window);
+    overriding procedure Finalize
+           (This : in out Double_Window);
 
 
 end FLTK.Widgets.Groups.Windows.Double;