From bc54653c3e5277afecaecf2f208e1ee335df3a6e Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 4 Oct 2016 00:32:30 +1100
Subject: Find/Replace marshalling back to Adapad Main done, some
 Group/Widget_Cursor stuff removed

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

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

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