diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-10-04 00:32:30 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-10-04 00:32:30 +1100 |
| commit | 7a84d0f3d0d181196b24795592a260e05b63fa74 (patch) | |
| tree | a9801dd8ba035cd20f269d1c713def579b035027 /src/fltk_binding/fltk-widgets.adb | |
| parent | ff006c440b90f1fdcfc47f8d809e07fbe54951ac (diff) | |
Find/Replace marshalling back to Adapad Main done, some Group/Widget_Cursor stuff removed
Diffstat (limited to 'src/fltk_binding/fltk-widgets.adb')
| -rw-r--r-- | src/fltk_binding/fltk-widgets.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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; |