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

(limited to 'fltk-widgets-buttons-repeat.ads')

diff --git a/fltk-widgets-buttons-repeat.ads b/fltk-widgets-buttons-repeat.ads
index 277a783..baac3f4 100644
--- a/fltk-widgets-buttons-repeat.ads
+++ b/fltk-widgets-buttons-repeat.ads
@@ -7,8 +7,8 @@ package FLTK.Widgets.Buttons.Repeat is
 
 
     function Create
-           (X, Y, W, H : Integer;
-            Label      : String)
+           (X, Y, W, H : in Integer;
+            Label      : in String)
         return Repeat_Button;
 
 
@@ -18,7 +18,8 @@ private
     type Repeat_Button is new Button with null record;
 
 
-    overriding procedure Finalize (This : in out Repeat_Button);
+    overriding procedure Finalize
+           (This : in out Repeat_Button);
 
 
 end FLTK.Widgets.Buttons.Repeat;
-- 
cgit