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.ads | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

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

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