diff options
Diffstat (limited to 'src/fltk-widgets-groups.ads')
-rw-r--r-- | src/fltk-widgets-groups.ads | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads index e631b7e..84859b0 100644 --- a/src/fltk-widgets-groups.ads +++ b/src/fltk-widgets-groups.ads @@ -7,7 +7,10 @@ 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 @@ -32,6 +35,16 @@ package FLTK.Widgets.Groups is return Natural; + function Get_Clip_Mode + (This : in Group) + return Clip_Mode; + + + procedure Set_Clip_Mode + (This : in out Group; + Mode : in Clip_Mode); + + procedure Clear (This : in out Group); @@ -42,12 +55,22 @@ package FLTK.Widgets.Groups is return Index; + 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); + + procedure Remove (This : in out Group; Item : in out Widget'Class); @@ -58,6 +81,11 @@ package FLTK.Widgets.Groups is Place : in Index); + function Get_Resizable + (This : in Group) + return access Widget'Class; + + procedure Set_Resizable (This : in out Group; Item : in Widget'Class); |