From e9add081b396a0cbfdf59df9d340afe44d9b9544 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 7 Sep 2016 02:15:57 +1000 Subject: Now using widget user data to refer back to Ada side of things, will enable easy implementation of callbacks --- fltk-widgets-groups-text_displays-text_editors.adb | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'fltk-widgets-groups-text_displays-text_editors.adb') diff --git a/fltk-widgets-groups-text_displays-text_editors.adb b/fltk-widgets-groups-text_displays-text_editors.adb index f5eead6..447da2c 100644 --- a/fltk-widgets-groups-text_displays-text_editors.adb +++ b/fltk-widgets-groups-text_displays-text_editors.adb @@ -21,13 +21,6 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is - procedure fl_group_end - (TE : in System.Address); - pragma Import (C, fl_group_end, "fl_group_end"); - - - - procedure Finalize (This : in out Text_Editor) is begin @@ -55,6 +48,9 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is Interfaces.C.int (H), Interfaces.C.To_C (Text)); fl_group_end (This.Void_Ptr); + fl_widget_set_user_data + (This.Void_Ptr, + Widget_Convert.To_Address (This'Unchecked_Access)); end return; end Create; -- cgit