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-groups.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-groups.adb')
| -rw-r--r-- | src/fltk_binding/fltk-widgets-groups.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk_binding/fltk-widgets-groups.adb b/src/fltk_binding/fltk-widgets-groups.adb index 3ffd1e3..2197d28 100644 --- a/src/fltk_binding/fltk-widgets-groups.adb +++ b/src/fltk_binding/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; |