diff options
Diffstat (limited to 'src/fltk-widgets-groups.ads')
| -rw-r--r-- | src/fltk-widgets-groups.ads | 83 |
1 files changed, 43 insertions, 40 deletions
diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads index d7fbdb5..eeeb564 100644 --- a/src/fltk-widgets-groups.ads +++ b/src/fltk-widgets-groups.ads @@ -1,6 +1,8 @@ -private with System; +private with + + System; package FLTK.Widgets.Groups is @@ -8,93 +10,93 @@ package FLTK.Widgets.Groups is type Group is new Widget with private; - type Index is new Positive; -- type Clip_Mode is (No_Clip, Clip); + + function Create (X, Y, W, H : in Integer; Text : in String) return Group; + + procedure Add (This : in out Group; Item : in out Widget'Class); + procedure Insert + (This : in out Group; + Item : in out Widget'Class; + Place : in Index); - function Child - (This : in Group; - Place : in Index) - return access Widget'Class; - - - function Number_Of_Children - (This : in Group) - return Natural; + procedure Insert + (This : in out Group; + Item : in out Widget'Class; + Before : in Widget'Class); + procedure Remove + (This : in out Group; + Item : in out Widget'Class); - -- function Get_Clip_Mode - -- (This : in Group) - -- return Clip_Mode; + procedure Remove + (This : in out Group; + Place : in Index); + procedure Clear + (This : in out Group); - -- procedure Set_Clip_Mode - -- (This : in out Group; - -- Mode : in Clip_Mode); - procedure Clear - (This : in out Group); + function Child + (This : in Group; + Place : in Index) + return access Widget'Class; function Find (This : in Group; Item : in out Widget'Class) return Index; + function Number_Of_Children + (This : in Group) + return Natural; - procedure Reset_Initial_Sizes - (This : in out Group); - - - procedure Insert - (This : in out Group; - Item : in out Widget'Class; - Place : in Index); - procedure Insert - (This : in out Group; - Item : in out Widget'Class; - Before : in Widget'Class); + -- function Get_Clip_Mode + -- (This : in Group) + -- return Clip_Mode; - procedure Remove - (This : in out Group; - Item : in out Widget'Class); + -- procedure Set_Clip_Mode + -- (This : in out Group; + -- Mode : in Clip_Mode); - procedure Remove - (This : in out Group; - Place : in Index); function Get_Resizable (This : in Group) return access Widget'Class; - procedure Set_Resizable (This : in out Group; Item : in Widget'Class); + procedure Reset_Initial_Sizes + (This : in out Group); + + + procedure Draw (This : in out Group); - function Handle (This : in out Group; Event : in Event_Kind) @@ -106,11 +108,12 @@ private type Group is new Widget with null record; - overriding procedure Finalize (This : in out Group); + + procedure fl_group_end (G : in System.Address); pragma Import (C, fl_group_end, "fl_group_end"); |