diff options
Diffstat (limited to 'fltk-widgets-groups.ads')
-rw-r--r-- | fltk-widgets-groups.ads | 23 |
1 files changed, 11 insertions, 12 deletions
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; |