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

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

diff --git a/src/fltk-widgets-boxes.ads b/src/fltk-widgets-boxes.ads
index b3d2abd..b31bdf5 100644
--- a/src/fltk-widgets-boxes.ads
+++ b/src/fltk-widgets-boxes.ads
@@ -6,16 +6,19 @@ package FLTK.Widgets.Boxes is
     type Box is new Widget with private;
 
 
+
+
     function Create
            (X, Y, W, H : in Integer;
             Text       : in String)
         return Box;
 
 
+
+
     procedure Draw
            (This : in out Box);
 
-
     function Handle
            (This  : in out Box;
             Event : in     Event_Kind)
@@ -27,7 +30,6 @@ private
 
     type Box is new Widget with null record;
 
-
     overriding procedure Finalize
            (This : in out Box);
 
-- 
cgit