Now using widget user data to refer back to Ada side of things, will enable easy implementation of callbacks

1 files changed, 6 insertions, 7 deletions

diff --git a/src/fltk_binding/fltk-widgets-groups-windows-single.adb b/src/fltk_binding/fltk-widgets-groups-windows-single.adb
index 7a9cd32..16c5f44 100644
--- a/src/fltk_binding/fltk-widgets-groups-windows-single.adb
+++ b/src/fltk_binding/fltk-widgets-groups-windows-single.adb
@@ -34,13 +34,6 @@ package body FLTK.Widgets.Groups.Windows.Single is
 
 
 
-    procedure fl_group_end
-           (G : in System.Address);
-    pragma Import (C, fl_group_end, "fl_group_end");
-
-
-
-
     procedure Finalize
            (This : in out Single_Window) is
     begin
@@ -68,6 +61,9 @@ package body FLTK.Widgets.Groups.Windows.Single 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;
 
@@ -83,6 +79,9 @@ package body FLTK.Widgets.Groups.Windows.Single is
                    (Interfaces.C.int (W),
                     Interfaces.C.int (H));
             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;