From 7a84d0f3d0d181196b24795592a260e05b63fa74 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 4 Oct 2016 00:32:30 +1100 Subject: Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed --- src/fltk_binding/fltk-widgets.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/fltk_binding/fltk-widgets.adb') diff --git a/src/fltk_binding/fltk-widgets.adb b/src/fltk_binding/fltk-widgets.adb index 5ec090d..0a159c7 100644 --- a/src/fltk_binding/fltk-widgets.adb +++ b/src/fltk_binding/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; -- cgit