Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed

1 files changed, 2 insertions, 2 deletions

diff --git a/fltk-widgets.adb b/fltk-widgets.adb
index 5ec090d..0a159c7 100644
--- a/fltk-widgets.adb
+++ b/fltk-widgets.adb
@@ -110,7 +110,7 @@ package body FLTK.Widgets is
 
     function Parent
            (This : in Widget)
-        return Group_Cursor is
+        return access FLTK.Widgets.Groups.Group'Class is
 
         Parent_Ptr : System.Address;
         Actual_Parent : access Group'Class;
@@ -120,7 +120,7 @@ package body FLTK.Widgets is
         if Parent_Ptr /= System.Null_Address then
             Actual_Parent := Group_Convert.To_Pointer (fl_widget_get_user_data (Parent_Ptr));
         end if;
-        return Ref : Group_Cursor (Data => Actual_Parent);
+        return Actual_Parent;
     end Parent;