Group widget now more or less method complete

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);