From fb37523537cdb69a31dede401a604981ce8b7b9d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 17 Jun 2017 11:28:39 +1000
Subject: Updated coding style, added progress log

---
 src/fltk-widgets-inputs-integer.ads | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/fltk-widgets-inputs-integer.ads')

diff --git a/src/fltk-widgets-inputs-integer.ads b/src/fltk-widgets-inputs-integer.ads
index f8ed415..c32615b 100644
--- a/src/fltk-widgets-inputs-integer.ads
+++ b/src/fltk-widgets-inputs-integer.ads
@@ -6,21 +6,26 @@ package FLTK.Widgets.Inputs.Integer is
     type Integer_Input is new Input with private;
 
 
+
+
     function Create
            (X, Y, W, H : in Standard.Integer;
             Text       : in String)
         return Integer_Input;
 
 
+
+
     function Get_Value
            (This : in Integer_Input)
         return Standard.Integer;
 
 
+
+
     procedure Draw
            (This : in out Integer_Input);
 
-
     function Handle
            (This  : in out Integer_Input;
             Event : in     Event_Kind)
@@ -32,7 +37,6 @@ private
 
     type Integer_Input is new Input with null record;
 
-
     overriding procedure Finalize
            (This : in out Integer_Input);
 
-- 
cgit