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

1 files changed, 11 insertions, 12 deletions

diff --git a/src/fltk_binding/fltk-widgets-groups.ads b/src/fltk_binding/fltk-widgets-groups.ads
index aa52083..7d6e59b 100644
--- a/src/fltk_binding/fltk-widgets-groups.ads
+++ b/src/fltk_binding/fltk-widgets-groups.ads
@@ -1,6 +1,6 @@
 
 
-private with Ada.Containers.Vectors;
+private with System;
 
 
 package FLTK.Widgets.Groups is
@@ -27,6 +27,11 @@ package FLTK.Widgets.Groups is
         return Widget_Cursor;
 
 
+    function Number_Of_Children
+           (This : in Group)
+        return Natural;
+
+
     procedure Clear
            (This : in out Group);
 
@@ -56,22 +61,16 @@ package FLTK.Widgets.Groups is
 private
 
 
-    type Widget_Access is access all Widget'Class;
-    package Widget_Vectors is new Ada.Containers.Vectors (Index, Widget_Access);
-
-
-    type Group is new Widget with
-        record
-            Widget_List : Widget_Vectors.Vector;
-        end record;
+    type Group is new Widget with null record;
 
 
-    overriding procedure Initialize
+    overriding procedure Finalize
            (This : in out Group);
 
 
-    overriding procedure Finalize
-           (This : in out Group);
+    procedure fl_group_end
+           (G : in System.Address);
+    pragma Import (C, fl_group_end, "fl_group_end");
 
 
 end FLTK.Widgets.Groups;