Added convenience widget constructors that specify the parent group to add toHEADmaster

1 files changed, 26 insertions, 0 deletions

diff --git a/src/fltk-widgets-boxes.adb b/src/fltk-widgets-boxes.adb
index 7b4c848..e412131 100644
--- a/src/fltk-widgets-boxes.adb
+++ b/src/fltk-widgets-boxes.adb
@@ -6,6 +6,7 @@
 
 with
 
+    FLTK.Widgets.Groups,
     Interfaces.C;
 
 
@@ -118,6 +119,18 @@ package body FLTK.Widgets.Boxes is
 
 
         function Create
+               (Parent     : in out FLTK.Widgets.Groups.Group'Class;
+                X, Y, W, H : in     Integer;
+                Text       : in     String := "")
+            return Box is
+        begin
+            return This : Box := Create (X, Y, W, H, Text) do
+                Parent.Add (This);
+            end return;
+        end Create;
+
+
+        function Create
                (Kind       : in Box_Kind;
                 X, Y, W, H : in Integer;
                 Text       : in String := "")
@@ -135,6 +148,19 @@ package body FLTK.Widgets.Boxes is
             end return;
         end Create;
 
+
+        function Create
+               (Parent     : in out FLTK.Widgets.Groups.Group'Class;
+                Kind       : in     Box_Kind;
+                X, Y, W, H : in     Integer;
+                Text       : in     String := "")
+            return Box is
+        begin
+            return This : Box := Create (Kind, X, Y, W, H, Text) do
+                Parent.Add (This);
+            end return;
+        end Create;
+
     end Forge;