summaryrefslogtreecommitdiff
path: root/fltk-widgets.adb
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-10-04 00:32:30 +1100
committerJed Barber <jjbarber@y7mail.com>2016-10-04 00:32:30 +1100
commitbc54653c3e5277afecaecf2f208e1ee335df3a6e (patch)
tree59d8e7285c77680d99a52d35fa3c1a3a9624b903 /fltk-widgets.adb
parentd4520de203a8fd8816836b7f8507027cf0675f91 (diff)
Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed
Diffstat (limited to 'fltk-widgets.adb')
-rw-r--r--fltk-widgets.adb4
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;