From e0ee146d740146cd4c80de22d6bf6e204efadfa0 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 9 Nov 2016 09:12:26 +1100
Subject: Removed superfluous use clauses, styling now more standardised

---
 fltk-widgets-groups.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'fltk-widgets-groups.adb')

diff --git a/fltk-widgets-groups.adb b/fltk-widgets-groups.adb
index 2197d28..067407d 100644
--- a/fltk-widgets-groups.adb
+++ b/fltk-widgets-groups.adb
@@ -109,14 +109,13 @@ package body FLTK.Widgets.Groups is
     function Child
            (This  : in Group;
             Place : in Index)
-        return access Widget'Class is
-
+        return access Widget'Class
+    is
         Widget_Ptr : System.Address :=
                 fl_group_child (This.Void_Ptr, Interfaces.C.int (Place - 1));
 
         Actual_Widget : access Widget'Class :=
                 Widget_Convert.To_Pointer (fl_widget_get_user_data (Widget_Ptr));
-
     begin
         return Actual_Widget;
     end Child;
-- 
cgit