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-valuators-sliders.adb b/src/fltk-widgets-valuators-sliders.adb
index bac5378..92f503f 100644
--- a/src/fltk-widgets-valuators-sliders.adb
+++ b/src/fltk-widgets-valuators-sliders.adb
@@ -6,6 +6,7 @@
 
 with
 
+    FLTK.Widgets.Groups,
     Interfaces.C.Strings;
 
 
@@ -187,6 +188,18 @@ package body FLTK.Widgets.Valuators.Sliders is
 
 
         function Create
+               (Parent     : in out FLTK.Widgets.Groups.Group'Class;
+                X, Y, W, H : in     Integer;
+                Text       : in     String := "")
+            return Slider is
+        begin
+            return This : Slider := Create (X, Y, W, H, Text) do
+                Parent.Add (This);
+            end return;
+        end Create;
+
+
+        function Create
                (Kind       : in Slider_Kind;
                 X, Y, W, H : in Integer;
                 Text       : in String := "")
@@ -204,6 +217,19 @@ package body FLTK.Widgets.Valuators.Sliders is
             end return;
         end Create;
 
+
+        function Create
+               (Parent     : in out FLTK.Widgets.Groups.Group'Class;
+                Kind       : in     Slider_Kind;
+                X, Y, W, H : in     Integer;
+                Text       : in     String := "")
+            return Slider is
+        begin
+            return This : Slider := Create (Kind, X, Y, W, H, Text) do
+                Parent.Add (This);
+            end return;
+        end Create;
+
     end Forge;