diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-16 23:44:10 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-16 23:44:10 +1300 |
commit | 157f44ff7034212a29696c5bb2b87e4f6f20d625 (patch) | |
tree | 2aa791870d00858880e036caf6791d65c348ec4a /src/fltk-widgets-inputs-text-multiline.adb | |
parent | 8b9a09364553d2495b133f948c1ddf428d0b9dae (diff) |
Diffstat (limited to 'src/fltk-widgets-inputs-text-multiline.adb')
-rw-r--r-- | src/fltk-widgets-inputs-text-multiline.adb | 13 |
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; |