From e9add081b396a0cbfdf59df9d340afe44d9b9544 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
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.ads | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'fltk-widgets-groups.ads')

diff --git a/fltk-widgets-groups.ads b/fltk-widgets-groups.ads
index aa52083..7d6e59b 100644
--- a/fltk-widgets-groups.ads
+++ b/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;
-- 
cgit