summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-inputs-text-multiline.adb
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-01-16 23:44:10 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-01-16 23:44:10 +1300
commit157f44ff7034212a29696c5bb2b87e4f6f20d625 (patch)
tree2aa791870d00858880e036caf6791d65c348ec4a /src/fltk-widgets-inputs-text-multiline.adb
parent8b9a09364553d2495b133f948c1ddf428d0b9dae (diff)
Added convenience widget constructors that specify the parent group to add toHEADmaster
Diffstat (limited to 'src/fltk-widgets-inputs-text-multiline.adb')
-rw-r--r--src/fltk-widgets-inputs-text-multiline.adb13
1 files changed, 13 insertions, 0 deletions
diff --git a/src/fltk-widgets-inputs-text-multiline.adb b/src/fltk-widgets-inputs-text-multiline.adb
index 2bed66d..27e0def 100644
--- a/src/fltk-widgets-inputs-text-multiline.adb
+++ b/src/fltk-widgets-inputs-text-multiline.adb
@@ -6,6 +6,7 @@
with
+ FLTK.Widgets.Groups,
Interfaces.C.Strings;
@@ -109,6 +110,18 @@ package body FLTK.Widgets.Inputs.Text.Multiline is
end return;
end Create;
+
+ function Create
+ (Parent : in out FLTK.Widgets.Groups.Group'Class;
+ X, Y, W, H : in Integer;
+ Text : in String := "")
+ return Multiline_Input is
+ begin
+ return This : Multiline_Input := Create (X, Y, W, H, Text) do
+ Parent.Add (This);
+ end return;
+ end Create;
+
end Forge;