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 | |
| parent | 8b9a09364553d2495b133f948c1ddf428d0b9dae (diff) | |
Diffstat (limited to 'src')
152 files changed, 1861 insertions, 2 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; diff --git a/src/fltk-widgets-boxes.ads b/src/fltk-widgets-boxes.ads index b0a03dc..7e24d5f 100644 --- a/src/fltk-widgets-boxes.ads +++ b/src/fltk-widgets-boxes.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Boxes is @@ -23,11 +28,24 @@ package FLTK.Widgets.Boxes is return Box; function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Box; + + function Create (Kind : in Box_Kind; X, Y, W, H : in Integer; Text : in String := "") return Box; + 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; + end Forge; diff --git a/src/fltk-widgets-buttons-enter.adb b/src/fltk-widgets-buttons-enter.adb index 0053e53..3a9e026 100644 --- a/src/fltk-widgets-buttons-enter.adb +++ b/src/fltk-widgets-buttons-enter.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Enter 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 Enter_Button is + begin + return This : Enter_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-enter.ads b/src/fltk-widgets-buttons-enter.ads index 0180628..ed5ab83 100644 --- a/src/fltk-widgets-buttons-enter.ads +++ b/src/fltk-widgets-buttons-enter.ads @@ -7,6 +7,11 @@ -- Return Buttons, but return is a reserved word, so they're Enter Buttons instead +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Enter is @@ -25,6 +30,12 @@ package FLTK.Widgets.Buttons.Enter is Text : in String := "") return Enter_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Enter_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-light-check.adb b/src/fltk-widgets-buttons-light-check.adb index e565461..de35223 100644 --- a/src/fltk-widgets-buttons-light-check.adb +++ b/src/fltk-widgets-buttons-light-check.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -149,6 +150,18 @@ package body FLTK.Widgets.Buttons.Light.Check 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 Check_Button is + begin + return This : Check_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-light-check.ads b/src/fltk-widgets-buttons-light-check.ads index b54d0af..b6f353b 100644 --- a/src/fltk-widgets-buttons-light-check.ads +++ b/src/fltk-widgets-buttons-light-check.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Light.Check is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Light.Check is Text : in String := "") return Check_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Check_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-light-radio.adb b/src/fltk-widgets-buttons-light-radio.adb index 754131d..9aef7bd 100644 --- a/src/fltk-widgets-buttons-light-radio.adb +++ b/src/fltk-widgets-buttons-light-radio.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Light.Radio 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 Radio_Light_Button is + begin + return This : Radio_Light_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-light-radio.ads b/src/fltk-widgets-buttons-light-radio.ads index 5120106..02c16e9 100644 --- a/src/fltk-widgets-buttons-light-radio.ads +++ b/src/fltk-widgets-buttons-light-radio.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Light.Radio is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Light.Radio is Text : in String := "") return Radio_Light_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Radio_Light_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-light-round-radio.adb b/src/fltk-widgets-buttons-light-round-radio.adb index f2c7ed8..b277922 100644 --- a/src/fltk-widgets-buttons-light-round-radio.adb +++ b/src/fltk-widgets-buttons-light-round-radio.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Light.Round.Radio 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 Radio_Round_Button is + begin + return This : Radio_Round_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-light-round-radio.ads b/src/fltk-widgets-buttons-light-round-radio.ads index f46f179..34f0c1b 100644 --- a/src/fltk-widgets-buttons-light-round-radio.ads +++ b/src/fltk-widgets-buttons-light-round-radio.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Light.Round.Radio is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Light.Round.Radio is Text : in String := "") return Radio_Round_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Radio_Round_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-light-round.adb b/src/fltk-widgets-buttons-light-round.adb index 2e358ea..172c112 100644 --- a/src/fltk-widgets-buttons-light-round.adb +++ b/src/fltk-widgets-buttons-light-round.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -108,6 +109,18 @@ package body FLTK.Widgets.Buttons.Light.Round 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 Round_Button is + begin + return This : Round_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-light-round.ads b/src/fltk-widgets-buttons-light-round.ads index 606b11d..6e07607 100644 --- a/src/fltk-widgets-buttons-light-round.ads +++ b/src/fltk-widgets-buttons-light-round.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Light.Round is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Light.Round is Text : in String := "") return Round_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Round_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-light.adb b/src/fltk-widgets-buttons-light.adb index 41b7bd0..3e4791a 100644 --- a/src/fltk-widgets-buttons-light.adb +++ b/src/fltk-widgets-buttons-light.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Light 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 Light_Button is + begin + return This : Light_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-light.ads b/src/fltk-widgets-buttons-light.ads index 4c3ea95..b1a1cfa 100644 --- a/src/fltk-widgets-buttons-light.ads +++ b/src/fltk-widgets-buttons-light.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Light is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Light is Text : in String := "") return Light_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Light_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-radio.adb b/src/fltk-widgets-buttons-radio.adb index f29ce90..b51af60 100644 --- a/src/fltk-widgets-buttons-radio.adb +++ b/src/fltk-widgets-buttons-radio.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Radio 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 Radio_Button is + begin + return This : Radio_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-radio.ads b/src/fltk-widgets-buttons-radio.ads index 557266e..3aadcac 100644 --- a/src/fltk-widgets-buttons-radio.ads +++ b/src/fltk-widgets-buttons-radio.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Radio is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Radio is Text : in String := "") return Radio_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Radio_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-repeat.adb b/src/fltk-widgets-buttons-repeat.adb index e3d2d69..eda24fd 100644 --- a/src/fltk-widgets-buttons-repeat.adb +++ b/src/fltk-widgets-buttons-repeat.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -117,6 +118,18 @@ package body FLTK.Widgets.Buttons.Repeat 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 Repeat_Button is + begin + return This : Repeat_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-repeat.ads b/src/fltk-widgets-buttons-repeat.ads index 5720f8a..37380db 100644 --- a/src/fltk-widgets-buttons-repeat.ads +++ b/src/fltk-widgets-buttons-repeat.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Repeat is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Repeat is Text : in String := "") return Repeat_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Repeat_Button; + end Forge; diff --git a/src/fltk-widgets-buttons-toggle.adb b/src/fltk-widgets-buttons-toggle.adb index 6542aae..a93fa36 100644 --- a/src/fltk-widgets-buttons-toggle.adb +++ b/src/fltk-widgets-buttons-toggle.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Buttons.Toggle 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 Toggle_Button is + begin + return This : Toggle_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons-toggle.ads b/src/fltk-widgets-buttons-toggle.ads index 2e0c967..b9c974b 100644 --- a/src/fltk-widgets-buttons-toggle.ads +++ b/src/fltk-widgets-buttons-toggle.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons.Toggle is @@ -22,6 +27,12 @@ package FLTK.Widgets.Buttons.Toggle is Text : in String := "") return Toggle_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Toggle_Button; + end Forge; diff --git a/src/fltk-widgets-buttons.adb b/src/fltk-widgets-buttons.adb index c024dd1..0547ffa 100644 --- a/src/fltk-widgets-buttons.adb +++ b/src/fltk-widgets-buttons.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -204,6 +205,18 @@ package body FLTK.Widgets.Buttons 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 Button is + begin + return This : Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-buttons.ads b/src/fltk-widgets-buttons.ads index d4c864f..4c3b633 100644 --- a/src/fltk-widgets-buttons.ads +++ b/src/fltk-widgets-buttons.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Buttons is @@ -24,6 +29,12 @@ package FLTK.Widgets.Buttons is Text : in String := "") return Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Button; + end Forge; diff --git a/src/fltk-widgets-charts.adb b/src/fltk-widgets-charts.adb index 1c84ece..2d4615d 100644 --- a/src/fltk-widgets-charts.adb +++ b/src/fltk-widgets-charts.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; use type @@ -240,6 +241,18 @@ package body FLTK.Widgets.Charts 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 Chart is + begin + return This : Chart := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-charts.ads b/src/fltk-widgets-charts.ads index 1f02dd0..eb8d75b 100644 --- a/src/fltk-widgets-charts.ads +++ b/src/fltk-widgets-charts.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Charts is @@ -22,6 +27,12 @@ package FLTK.Widgets.Charts is Text : in String := "") return Chart; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Chart; + end Forge; diff --git a/src/fltk-widgets-clocks-updated-round.adb b/src/fltk-widgets-clocks-updated-round.adb index effea2c..4f4487b 100644 --- a/src/fltk-widgets-clocks-updated-round.adb +++ b/src/fltk-widgets-clocks-updated-round.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Clocks.Updated.Round 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 Round_Clock is + begin + return This : Round_Clock := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-clocks-updated-round.ads b/src/fltk-widgets-clocks-updated-round.ads index 8576318..d679b0c 100644 --- a/src/fltk-widgets-clocks-updated-round.ads +++ b/src/fltk-widgets-clocks-updated-round.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Clocks.Updated.Round is @@ -22,6 +27,12 @@ package FLTK.Widgets.Clocks.Updated.Round is Text : in String := "") return Round_Clock; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Round_Clock; + end Forge; diff --git a/src/fltk-widgets-clocks-updated.adb b/src/fltk-widgets-clocks-updated.adb index 7a02052..8b7d5e6 100644 --- a/src/fltk-widgets-clocks-updated.adb +++ b/src/fltk-widgets-clocks-updated.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -119,6 +120,18 @@ package body FLTK.Widgets.Clocks.Updated is function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Updated_Clock is + begin + return This : Updated_Clock := 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 := "") @@ -136,6 +149,19 @@ package body FLTK.Widgets.Clocks.Updated 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 Updated_Clock is + begin + return This : Updated_Clock := Create (Kind, X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-clocks-updated.ads b/src/fltk-widgets-clocks-updated.ads index e25ae18..c0700b2 100644 --- a/src/fltk-widgets-clocks-updated.ads +++ b/src/fltk-widgets-clocks-updated.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Clocks.Updated is @@ -23,11 +28,24 @@ package FLTK.Widgets.Clocks.Updated is return Updated_Clock; function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Updated_Clock; + + function Create (Kind : in Box_Kind; X, Y, W, H : in Integer; Text : in String := "") return Updated_Clock; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + Kind : in Box_Kind; + X, Y, W, H : in Integer; + Text : in String := "") + return Updated_Clock; + end Forge; diff --git a/src/fltk-widgets-clocks.adb b/src/fltk-widgets-clocks.adb index b632336..08be495 100644 --- a/src/fltk-widgets-clocks.adb +++ b/src/fltk-widgets-clocks.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -157,6 +158,18 @@ package body FLTK.Widgets.Clocks 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 Clock is + begin + return This : Clock := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-clocks.ads b/src/fltk-widgets-clocks.ads index 33edf37..d5b3728 100644 --- a/src/fltk-widgets-clocks.ads +++ b/src/fltk-widgets-clocks.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Clocks is @@ -28,6 +33,12 @@ package FLTK.Widgets.Clocks is Text : in String := "") return Clock; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Clock; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-check.adb b/src/fltk-widgets-groups-browsers-check.adb index 81ba06b..730dcd4 100644 --- a/src/fltk-widgets-groups-browsers-check.adb +++ b/src/fltk-widgets-groups-browsers-check.adb @@ -279,6 +279,18 @@ package body FLTK.Widgets.Groups.Browsers.Check is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Check_Browser is + begin + return This : Check_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-check.ads b/src/fltk-widgets-groups-browsers-check.ads index 85f8fd0..bd70503 100644 --- a/src/fltk-widgets-groups-browsers-check.ads +++ b/src/fltk-widgets-groups-browsers-check.ads @@ -36,6 +36,12 @@ package FLTK.Widgets.Groups.Browsers.Check is Text : in String := "") return Check_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Check_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-choice.adb b/src/fltk-widgets-groups-browsers-textline-choice.adb index 24b1317..95df2f2 100644 --- a/src/fltk-widgets-groups-browsers-textline-choice.adb +++ b/src/fltk-widgets-groups-browsers-textline-choice.adb @@ -229,6 +229,18 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Choice is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Choice_Browser is + begin + return This : Choice_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-choice.ads b/src/fltk-widgets-groups-browsers-textline-choice.ads index a1b78af..b3c404c 100644 --- a/src/fltk-widgets-groups-browsers-textline-choice.ads +++ b/src/fltk-widgets-groups-browsers-textline-choice.ads @@ -20,6 +20,12 @@ package FLTK.Widgets.Groups.Browsers.Textline.Choice is Text : in String := "") return Choice_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Choice_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-file.adb b/src/fltk-widgets-groups-browsers-textline-file.adb index bd7ce7f..e45396c 100644 --- a/src/fltk-widgets-groups-browsers-textline-file.adb +++ b/src/fltk-widgets-groups-browsers-textline-file.adb @@ -317,6 +317,18 @@ package body FLTK.Widgets.Groups.Browsers.Textline.File is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return File_Browser is + begin + return This : File_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-file.ads b/src/fltk-widgets-groups-browsers-textline-file.ads index ed5a4a5..e679957 100644 --- a/src/fltk-widgets-groups-browsers-textline-file.ads +++ b/src/fltk-widgets-groups-browsers-textline-file.ads @@ -44,6 +44,12 @@ package FLTK.Widgets.Groups.Browsers.Textline.File is Text : in String := "") return File_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return File_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-hold.adb b/src/fltk-widgets-groups-browsers-textline-hold.adb index 52465ed..4c91322 100644 --- a/src/fltk-widgets-groups-browsers-textline-hold.adb +++ b/src/fltk-widgets-groups-browsers-textline-hold.adb @@ -230,6 +230,18 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Hold is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Hold_Browser is + begin + return This : Hold_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-hold.ads b/src/fltk-widgets-groups-browsers-textline-hold.ads index 51dbe98..7de4445 100644 --- a/src/fltk-widgets-groups-browsers-textline-hold.ads +++ b/src/fltk-widgets-groups-browsers-textline-hold.ads @@ -20,6 +20,12 @@ package FLTK.Widgets.Groups.Browsers.Textline.Hold is Text : in String := "") return Hold_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Hold_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-multi.adb b/src/fltk-widgets-groups-browsers-textline-multi.adb index 9d3fbf8..ddcfd0a 100644 --- a/src/fltk-widgets-groups-browsers-textline-multi.adb +++ b/src/fltk-widgets-groups-browsers-textline-multi.adb @@ -229,6 +229,18 @@ package body FLTK.Widgets.Groups.Browsers.Textline.Multi is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Multi_Browser is + begin + return This : Multi_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline-multi.ads b/src/fltk-widgets-groups-browsers-textline-multi.ads index 373e94f..f4a7df2 100644 --- a/src/fltk-widgets-groups-browsers-textline-multi.ads +++ b/src/fltk-widgets-groups-browsers-textline-multi.ads @@ -20,6 +20,12 @@ package FLTK.Widgets.Groups.Browsers.Textline.Multi is Text : in String := "") return Multi_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Multi_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline.adb b/src/fltk-widgets-groups-browsers-textline.adb index 2830732..b7b3077 100644 --- a/src/fltk-widgets-groups-browsers-textline.adb +++ b/src/fltk-widgets-groups-browsers-textline.adb @@ -513,6 +513,18 @@ package body FLTK.Widgets.Groups.Browsers.Textline is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Textline_Browser is + begin + return This : Textline_Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers-textline.ads b/src/fltk-widgets-groups-browsers-textline.ads index 581d2bd..3ef7322 100644 --- a/src/fltk-widgets-groups-browsers-textline.ads +++ b/src/fltk-widgets-groups-browsers-textline.ads @@ -40,6 +40,12 @@ package FLTK.Widgets.Groups.Browsers.Textline is Text : in String := "") return Textline_Browser; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Textline_Browser; + end Forge; diff --git a/src/fltk-widgets-groups-browsers.adb b/src/fltk-widgets-groups-browsers.adb index aa717b7..36b9f2f 100644 --- a/src/fltk-widgets-groups-browsers.adb +++ b/src/fltk-widgets-groups-browsers.adb @@ -735,6 +735,18 @@ package body FLTK.Widgets.Groups.Browsers is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Browser is + begin + return This : Browser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-browsers.ads b/src/fltk-widgets-groups-browsers.ads index 6b0619e..d7b0498 100644 --- a/src/fltk-widgets-groups-browsers.ads +++ b/src/fltk-widgets-groups-browsers.ads @@ -45,6 +45,12 @@ package FLTK.Widgets.Groups.Browsers is Text : in String := "") return Browser; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Browser; + end Forge; diff --git a/src/fltk-widgets-groups-color_choosers.adb b/src/fltk-widgets-groups-color_choosers.adb index 5c52ce3..15f34ed 100644 --- a/src/fltk-widgets-groups-color_choosers.adb +++ b/src/fltk-widgets-groups-color_choosers.adb @@ -205,6 +205,18 @@ package body FLTK.Widgets.Groups.Color_Choosers is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Color_Chooser is + begin + return This : Color_Chooser := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-color_choosers.ads b/src/fltk-widgets-groups-color_choosers.ads index 8ceb1b7..4307acd 100644 --- a/src/fltk-widgets-groups-color_choosers.ads +++ b/src/fltk-widgets-groups-color_choosers.ads @@ -24,6 +24,12 @@ package FLTK.Widgets.Groups.Color_Choosers is Text : in String := "") return Color_Chooser; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Color_Chooser; + end Forge; diff --git a/src/fltk-widgets-groups-help_views.adb b/src/fltk-widgets-groups-help_views.adb index ec8688d..6435c0f 100644 --- a/src/fltk-widgets-groups-help_views.adb +++ b/src/fltk-widgets-groups-help_views.adb @@ -331,6 +331,18 @@ package body FLTK.Widgets.Groups.Help_Views is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Help_View is + begin + return This : Help_View := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-help_views.ads b/src/fltk-widgets-groups-help_views.ads index 03bb6c5..8cab6a7 100644 --- a/src/fltk-widgets-groups-help_views.ads +++ b/src/fltk-widgets-groups-help_views.ads @@ -42,6 +42,12 @@ package FLTK.Widgets.Groups.Help_Views is Text : in String := "") return Help_View; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Help_View; + end Forge; diff --git a/src/fltk-widgets-groups-input_choices.adb b/src/fltk-widgets-groups-input_choices.adb index 3c4f1c8..4ee6ffd 100644 --- a/src/fltk-widgets-groups-input_choices.adb +++ b/src/fltk-widgets-groups-input_choices.adb @@ -283,6 +283,18 @@ package body FLTK.Widgets.Groups.Input_Choices is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Input_Choice is + begin + return This : Input_Choice := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-input_choices.ads b/src/fltk-widgets-groups-input_choices.ads index dca7ac4..fb092de 100644 --- a/src/fltk-widgets-groups-input_choices.ads +++ b/src/fltk-widgets-groups-input_choices.ads @@ -29,6 +29,12 @@ package FLTK.Widgets.Groups.Input_Choices is Text : in String := "") return Input_Choice; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Input_Choice; + end Forge; diff --git a/src/fltk-widgets-groups-packed.adb b/src/fltk-widgets-groups-packed.adb index 421bca1..e7b34a4 100644 --- a/src/fltk-widgets-groups-packed.adb +++ b/src/fltk-widgets-groups-packed.adb @@ -136,6 +136,18 @@ package body FLTK.Widgets.Groups.Packed is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Packed_Group is + begin + return This : Packed_Group := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-packed.ads b/src/fltk-widgets-groups-packed.ads index 3f2587c..4369fe7 100644 --- a/src/fltk-widgets-groups-packed.ads +++ b/src/fltk-widgets-groups-packed.ads @@ -24,6 +24,12 @@ package FLTK.Widgets.Groups.Packed is Text : in String := "") return Packed_Group; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Packed_Group; + end Forge; diff --git a/src/fltk-widgets-groups-scrolls.adb b/src/fltk-widgets-groups-scrolls.adb index ebffdbe..061299c 100644 --- a/src/fltk-widgets-groups-scrolls.adb +++ b/src/fltk-widgets-groups-scrolls.adb @@ -202,6 +202,18 @@ package body FLTK.Widgets.Groups.Scrolls is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Scroll is + begin + return This : Scroll := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-scrolls.ads b/src/fltk-widgets-groups-scrolls.ads index 8030fcd..9f5cdd2 100644 --- a/src/fltk-widgets-groups-scrolls.ads +++ b/src/fltk-widgets-groups-scrolls.ads @@ -36,6 +36,12 @@ package FLTK.Widgets.Groups.Scrolls is Text : in String := "") return Scroll; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Scroll; + end Forge; diff --git a/src/fltk-widgets-groups-spinners.adb b/src/fltk-widgets-groups-spinners.adb index e9d2f28..00293eb 100644 --- a/src/fltk-widgets-groups-spinners.adb +++ b/src/fltk-widgets-groups-spinners.adb @@ -270,6 +270,18 @@ package body FLTK.Widgets.Groups.Spinners is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Spinner is + begin + return This : Spinner := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-spinners.ads b/src/fltk-widgets-groups-spinners.ads index 39ed4b3..6030946 100644 --- a/src/fltk-widgets-groups-spinners.ads +++ b/src/fltk-widgets-groups-spinners.ads @@ -29,6 +29,12 @@ package FLTK.Widgets.Groups.Spinners is Text : in String := "") return Spinner; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Spinner; + end Forge; diff --git a/src/fltk-widgets-groups-tabbed.adb b/src/fltk-widgets-groups-tabbed.adb index 3b62b3c..360b824 100644 --- a/src/fltk-widgets-groups-tabbed.adb +++ b/src/fltk-widgets-groups-tabbed.adb @@ -162,6 +162,18 @@ package body FLTK.Widgets.Groups.Tabbed is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Tabbed_Group is + begin + return This : Tabbed_Group := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-tabbed.ads b/src/fltk-widgets-groups-tabbed.ads index 136c66e..c056d29 100644 --- a/src/fltk-widgets-groups-tabbed.ads +++ b/src/fltk-widgets-groups-tabbed.ads @@ -22,6 +22,12 @@ package FLTK.Widgets.Groups.Tabbed is Text : in String := "") return Tabbed_Group; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Tabbed_Group; + end Forge; diff --git a/src/fltk-widgets-groups-text_displays-text_editors.adb b/src/fltk-widgets-groups-text_displays-text_editors.adb index 636e368..33c2a2b 100644 --- a/src/fltk-widgets-groups-text_displays-text_editors.adb +++ b/src/fltk-widgets-groups-text_displays-text_editors.adb @@ -516,6 +516,18 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Text_Editor is + begin + return This : Text_Editor := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-text_displays-text_editors.ads b/src/fltk-widgets-groups-text_displays-text_editors.ads index 36c945d..6f5131d 100644 --- a/src/fltk-widgets-groups-text_displays-text_editors.ads +++ b/src/fltk-widgets-groups-text_displays-text_editors.ads @@ -46,6 +46,12 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is Text : in String := "") return Text_Editor; + function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Text_Editor; + end Forge; diff --git a/src/fltk-widgets-groups-text_displays.adb b/src/fltk-widgets-groups-text_displays.adb index 170ed51..0c90bec 100644 --- a/src/fltk-widgets-groups-text_displays.adb +++ b/src/fltk-widgets-groups-text_displays.adb @@ -525,6 +525,18 @@ package body FLTK.Widgets.Groups.Text_Displays is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Text_Display is + begin + return This : Text_Display := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-text_displays.ads b/src/fltk-widgets-groups-text_displays.ads index f4ffd43..c56708a 100644 --- a/src/fltk-widgets-groups-text_displays.ads +++ b/src/fltk-widgets-groups-text_displays.ads @@ -39,6 +39,12 @@ package FLTK.Widgets.Groups.Text_Displays is Text : in String := "") return Text_Display; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Text_Display; + end Forge; diff --git a/src/fltk-widgets-groups-tiled.adb b/src/fltk-widgets-groups-tiled.adb index bf3950c..9bbf394 100644 --- a/src/fltk-widgets-groups-tiled.adb +++ b/src/fltk-widgets-groups-tiled.adb @@ -124,6 +124,18 @@ package body FLTK.Widgets.Groups.Tiled is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Tiled_Group is + begin + return This : Tiled_Group := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-tiled.ads b/src/fltk-widgets-groups-tiled.ads index 1580464..9edaf6b 100644 --- a/src/fltk-widgets-groups-tiled.ads +++ b/src/fltk-widgets-groups-tiled.ads @@ -22,6 +22,12 @@ package FLTK.Widgets.Groups.Tiled is Text : in String := "") return Tiled_Group; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Tiled_Group; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double-cairo.adb b/src/fltk-widgets-groups-windows-double-cairo.adb index eedcbd1..897c206 100644 --- a/src/fltk-widgets-groups-windows-double-cairo.adb +++ b/src/fltk-widgets-groups-windows-double-cairo.adb @@ -156,8 +156,20 @@ package body FLTK.Widgets.Groups.Windows.Double.Cairo is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Cairo_Window is + begin + return This : Cairo_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; - Text : in String := "") + Text : in String) return Cairo_Window is begin return This : Cairo_Window do @@ -171,6 +183,18 @@ package body FLTK.Widgets.Groups.Windows.Double.Cairo is function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String) + return Cairo_Window is + begin + return This : Cairo_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer) return Cairo_Window is begin @@ -182,6 +206,17 @@ package body FLTK.Widgets.Groups.Windows.Double.Cairo is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer) + return Cairo_Window is + begin + return This : Cairo_Window := Create (W, H) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double-cairo.ads b/src/fltk-widgets-groups-windows-double-cairo.ads index 02a1dbf..8073a81 100644 --- a/src/fltk-widgets-groups-windows-double-cairo.ads +++ b/src/fltk-widgets-groups-windows-double-cairo.ads @@ -42,14 +42,31 @@ package FLTK.Widgets.Groups.Windows.Double.Cairo is return Cairo_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Cairo_Window; + + function Create (W, H : in Integer; - Text : in String := "") + Text : in String) + return Cairo_Window; + + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String) return Cairo_Window; function Create (W, H : in Integer) return Cairo_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer) + return Cairo_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double-overlay.adb b/src/fltk-widgets-groups-windows-double-overlay.adb index 53ba257..c4460f1 100644 --- a/src/fltk-widgets-groups-windows-double-overlay.adb +++ b/src/fltk-widgets-groups-windows-double-overlay.adb @@ -191,6 +191,18 @@ package body FLTK.Widgets.Groups.Windows.Double.Overlay is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Overlay_Window is + begin + return This : Overlay_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return Overlay_Window is @@ -204,6 +216,18 @@ package body FLTK.Widgets.Groups.Windows.Double.Overlay is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Overlay_Window is + begin + return This : Overlay_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double-overlay.ads b/src/fltk-widgets-groups-windows-double-overlay.ads index 3d07549..bd60292 100644 --- a/src/fltk-widgets-groups-windows-double-overlay.ads +++ b/src/fltk-widgets-groups-windows-double-overlay.ads @@ -23,10 +23,22 @@ package FLTK.Widgets.Groups.Windows.Double.Overlay is return Overlay_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Overlay_Window; + + function Create (W, H : in Integer; Text : in String := "") return Overlay_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String := "") + return Overlay_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double.adb b/src/fltk-widgets-groups-windows-double.adb index bb7e3da..90a17f3 100644 --- a/src/fltk-widgets-groups-windows-double.adb +++ b/src/fltk-widgets-groups-windows-double.adb @@ -159,6 +159,18 @@ package body FLTK.Widgets.Groups.Windows.Double is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Double_Window is + begin + return This : Double_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return Double_Window is @@ -172,6 +184,18 @@ package body FLTK.Widgets.Groups.Windows.Double is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Double_Window is + begin + return This : Double_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-double.ads b/src/fltk-widgets-groups-windows-double.ads index bd54d47..ed957ac 100644 --- a/src/fltk-widgets-groups-windows-double.ads +++ b/src/fltk-widgets-groups-windows-double.ads @@ -23,10 +23,22 @@ package FLTK.Widgets.Groups.Windows.Double is return Double_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Double_Window; + + function Create (W, H : in Integer; Text : in String := "") return Double_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String := "") + return Double_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows-opengl.adb b/src/fltk-widgets-groups-windows-opengl.adb index e949f2d..da2434c 100644 --- a/src/fltk-widgets-groups-windows-opengl.adb +++ b/src/fltk-widgets-groups-windows-opengl.adb @@ -285,6 +285,18 @@ package body FLTK.Widgets.Groups.Windows.OpenGL is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return GL_Window is + begin + return This : GL_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return GL_Window is @@ -298,6 +310,18 @@ package body FLTK.Widgets.Groups.Windows.OpenGL is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return GL_Window is + begin + return This : GL_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-opengl.ads b/src/fltk-widgets-groups-windows-opengl.ads index 2582bb1..2ce374d 100644 --- a/src/fltk-widgets-groups-windows-opengl.ads +++ b/src/fltk-widgets-groups-windows-opengl.ads @@ -48,10 +48,22 @@ package FLTK.Widgets.Groups.Windows.OpenGL is return GL_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return GL_Window; + + function Create (W, H : in Integer; Text : in String := "") return GL_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String := "") + return GL_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb index 480f89e..063961e 100644 --- a/src/fltk-widgets-groups-windows-single-menu.adb +++ b/src/fltk-widgets-groups-windows-single-menu.adb @@ -164,6 +164,18 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Menu_Window is + begin + return This : Menu_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return Menu_Window is @@ -177,6 +189,18 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Menu_Window is + begin + return This : Menu_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-single-menu.ads b/src/fltk-widgets-groups-windows-single-menu.ads index 7f6fd59..7b89f29 100644 --- a/src/fltk-widgets-groups-windows-single-menu.ads +++ b/src/fltk-widgets-groups-windows-single-menu.ads @@ -23,10 +23,22 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is return Menu_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Menu_Window; + + function Create (W, H : in Integer; Text : in String := "") return Menu_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String := "") + return Menu_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows-single.adb b/src/fltk-widgets-groups-windows-single.adb index a74b122..109c07e 100644 --- a/src/fltk-widgets-groups-windows-single.adb +++ b/src/fltk-widgets-groups-windows-single.adb @@ -147,6 +147,18 @@ package body FLTK.Widgets.Groups.Windows.Single is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Single_Window is + begin + return This : Single_Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return Single_Window is @@ -160,6 +172,18 @@ package body FLTK.Widgets.Groups.Windows.Single is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Single_Window is + begin + return This : Single_Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows-single.ads b/src/fltk-widgets-groups-windows-single.ads index be2fea6..bcc08a8 100644 --- a/src/fltk-widgets-groups-windows-single.ads +++ b/src/fltk-widgets-groups-windows-single.ads @@ -23,10 +23,22 @@ package FLTK.Widgets.Groups.Windows.Single is return Single_Window; function Create + (Parent : in out Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Single_Window; + + function Create (W, H : in Integer; Text : in String := "") return Single_Window; + function Create + (Parent : in out Groups.Group'Class; + W, H : in Integer; + Text : in String := "") + return Single_Window; + end Forge; diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb index b79f937..3a07d96 100644 --- a/src/fltk-widgets-groups-windows.adb +++ b/src/fltk-widgets-groups-windows.adb @@ -365,6 +365,18 @@ package body FLTK.Widgets.Groups.Windows is function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Window is + begin + return This : Window := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + + + function Create (W, H : in Integer; Text : in String := "") return Window is @@ -378,6 +390,18 @@ package body FLTK.Widgets.Groups.Windows is end return; end Create; + + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Window is + begin + return This : Window := Create (W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-windows.ads b/src/fltk-widgets-groups-windows.ads index d00d3d7..6a3233d 100644 --- a/src/fltk-widgets-groups-windows.ads +++ b/src/fltk-widgets-groups-windows.ads @@ -36,10 +36,22 @@ package FLTK.Widgets.Groups.Windows is return Window; function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Window; + + function Create (W, H : in Integer; Text : in String := "") return Window; + function Create + (Parent : in out Group'Class; + W, H : in Integer; + Text : in String := "") + return Window; + end Forge; diff --git a/src/fltk-widgets-groups-wizards.adb b/src/fltk-widgets-groups-wizards.adb index 0f60c46..eb604a1 100644 --- a/src/fltk-widgets-groups-wizards.adb +++ b/src/fltk-widgets-groups-wizards.adb @@ -142,6 +142,18 @@ package body FLTK.Widgets.Groups.Wizards is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Wizard is + begin + return This : Wizard := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups-wizards.ads b/src/fltk-widgets-groups-wizards.ads index 4473c54..0ec0e39 100644 --- a/src/fltk-widgets-groups-wizards.ads +++ b/src/fltk-widgets-groups-wizards.ads @@ -22,6 +22,12 @@ package FLTK.Widgets.Groups.Wizards is Text : in String := "") return Wizard; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Wizard; + end Forge; diff --git a/src/fltk-widgets-groups.adb b/src/fltk-widgets-groups.adb index 2c21533..e7c8780 100644 --- a/src/fltk-widgets-groups.adb +++ b/src/fltk-widgets-groups.adb @@ -261,6 +261,18 @@ package body FLTK.Widgets.Groups is end return; end Create; + + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Group is + begin + return This : Group := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads index 960c7b6..e66cffa 100644 --- a/src/fltk-widgets-groups.ads +++ b/src/fltk-widgets-groups.ads @@ -42,6 +42,12 @@ package FLTK.Widgets.Groups is Text : in String := "") return Group; + function Create + (Parent : in out Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Group; + end Forge; diff --git a/src/fltk-widgets-inputs-text-file.adb b/src/fltk-widgets-inputs-text-file.adb index ce4a625..c7e4919 100644 --- a/src/fltk-widgets-inputs-text-file.adb +++ b/src/fltk-widgets-inputs-text-file.adb @@ -7,6 +7,7 @@ with Ada.Assertions, + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -164,6 +165,18 @@ package body FLTK.Widgets.Inputs.Text.File 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 File_Input is + begin + return This : File_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-file.ads b/src/fltk-widgets-inputs-text-file.ads index 74ea7e1..1f2883b 100644 --- a/src/fltk-widgets-inputs-text-file.ads +++ b/src/fltk-widgets-inputs-text-file.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.File is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.File is Text : in String := "") return File_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return File_Input; + end Forge; diff --git a/src/fltk-widgets-inputs-text-floating_point.adb b/src/fltk-widgets-inputs-text-floating_point.adb index 61ea531..c7982d2 100644 --- a/src/fltk-widgets-inputs-text-floating_point.adb +++ b/src/fltk-widgets-inputs-text-floating_point.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -113,6 +114,18 @@ package body FLTK.Widgets.Inputs.Text.Floating_Point 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 Float_Input is + begin + return This : Float_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-floating_point.ads b/src/fltk-widgets-inputs-text-floating_point.ads index a6bc600..db4e0ae 100644 --- a/src/fltk-widgets-inputs-text-floating_point.ads +++ b/src/fltk-widgets-inputs-text-floating_point.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Floating_Point is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Floating_Point is Text : in String := "") return Float_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Float_Input; + end Forge; 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; diff --git a/src/fltk-widgets-inputs-text-multiline.ads b/src/fltk-widgets-inputs-text-multiline.ads index 0a51992..36de2e6 100644 --- a/src/fltk-widgets-inputs-text-multiline.ads +++ b/src/fltk-widgets-inputs-text-multiline.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Multiline is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Multiline is Text : in String := "") return Multiline_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Multiline_Input; + end Forge; diff --git a/src/fltk-widgets-inputs-text-outputs-multiline.adb b/src/fltk-widgets-inputs-text-outputs-multiline.adb index 021377e..4d8ade8 100644 --- a/src/fltk-widgets-inputs-text-outputs-multiline.adb +++ b/src/fltk-widgets-inputs-text-outputs-multiline.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Inputs.Text.Outputs.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_Output is + begin + return This : Multiline_Output := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-outputs-multiline.ads b/src/fltk-widgets-inputs-text-outputs-multiline.ads index 4600616..13da14d 100644 --- a/src/fltk-widgets-inputs-text-outputs-multiline.ads +++ b/src/fltk-widgets-inputs-text-outputs-multiline.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Outputs.Multiline is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Outputs.Multiline is Text : in String := "") return Multiline_Output; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Multiline_Output; + end Forge; diff --git a/src/fltk-widgets-inputs-text-outputs.adb b/src/fltk-widgets-inputs-text-outputs.adb index 07f9294..48e697f 100644 --- a/src/fltk-widgets-inputs-text-outputs.adb +++ b/src/fltk-widgets-inputs-text-outputs.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Inputs.Text.Outputs 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 Output is + begin + return This : Output := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-outputs.ads b/src/fltk-widgets-inputs-text-outputs.ads index 7e003e6..851451e 100644 --- a/src/fltk-widgets-inputs-text-outputs.ads +++ b/src/fltk-widgets-inputs-text-outputs.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Outputs is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Outputs is Text : in String := "") return Output; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Output; + end Forge; diff --git a/src/fltk-widgets-inputs-text-secret.adb b/src/fltk-widgets-inputs-text-secret.adb index 242d872..ab821d4 100644 --- a/src/fltk-widgets-inputs-text-secret.adb +++ b/src/fltk-widgets-inputs-text-secret.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Inputs.Text.Secret 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 Secret_Input is + begin + return This : Secret_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-secret.ads b/src/fltk-widgets-inputs-text-secret.ads index 375ebfb..cd98283 100644 --- a/src/fltk-widgets-inputs-text-secret.ads +++ b/src/fltk-widgets-inputs-text-secret.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Secret is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Secret is Text : in String := "") return Secret_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Secret_Input; + end Forge; diff --git a/src/fltk-widgets-inputs-text-whole_number.adb b/src/fltk-widgets-inputs-text-whole_number.adb index ae3ad7d..e5b0f85 100644 --- a/src/fltk-widgets-inputs-text-whole_number.adb +++ b/src/fltk-widgets-inputs-text-whole_number.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -113,6 +114,18 @@ package body FLTK.Widgets.Inputs.Text.Whole_Number 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 Integer_Input is + begin + return This : Integer_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text-whole_number.ads b/src/fltk-widgets-inputs-text-whole_number.ads index 0d2695f..9c13dc6 100644 --- a/src/fltk-widgets-inputs-text-whole_number.ads +++ b/src/fltk-widgets-inputs-text-whole_number.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text.Whole_Number is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text.Whole_Number is Text : in String := "") return Integer_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Integer_Input; + end Forge; diff --git a/src/fltk-widgets-inputs-text.adb b/src/fltk-widgets-inputs-text.adb index 573e589..efed39c 100644 --- a/src/fltk-widgets-inputs-text.adb +++ b/src/fltk-widgets-inputs-text.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -149,6 +150,18 @@ package body FLTK.Widgets.Inputs.Text 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 Text_Input is + begin + return This : Text_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs-text.ads b/src/fltk-widgets-inputs-text.ads index 7f0f695..c73e869 100644 --- a/src/fltk-widgets-inputs-text.ads +++ b/src/fltk-widgets-inputs-text.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Inputs.Text is @@ -22,6 +27,12 @@ package FLTK.Widgets.Inputs.Text is Text : in String := "") return Text_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Text_Input; + end Forge; diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb index 15c7964..1030ac0 100644 --- a/src/fltk-widgets-inputs.adb +++ b/src/fltk-widgets-inputs.adb @@ -7,6 +7,7 @@ with Ada.Assertions, + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -383,6 +384,18 @@ package body FLTK.Widgets.Inputs 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 Input is + begin + return This : Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-inputs.ads b/src/fltk-widgets-inputs.ads index 7fc436b..15c9075 100644 --- a/src/fltk-widgets-inputs.ads +++ b/src/fltk-widgets-inputs.ads @@ -4,6 +4,10 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + private with Interfaces.C.Strings, @@ -34,6 +38,12 @@ package FLTK.Widgets.Inputs is Text : in String := "") return Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Input; + end Forge; diff --git a/src/fltk-widgets-menus-choices.adb b/src/fltk-widgets-menus-choices.adb index 09c58b8..1fdf554 100644 --- a/src/fltk-widgets-menus-choices.adb +++ b/src/fltk-widgets-menus-choices.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C, System; @@ -136,6 +137,18 @@ package body FLTK.Widgets.Menus.Choices 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 Choice is + begin + return This : Choice := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-menus-choices.ads b/src/fltk-widgets-menus-choices.ads index 6d12fc9..7a5c225 100644 --- a/src/fltk-widgets-menus-choices.ads +++ b/src/fltk-widgets-menus-choices.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Menus.Choices is @@ -22,6 +27,12 @@ package FLTK.Widgets.Menus.Choices is Text : in String := "") return Choice; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Choice; + end Forge; diff --git a/src/fltk-widgets-menus-menu_bars.adb b/src/fltk-widgets-menus-menu_bars.adb index 0548936..d3f1295 100644 --- a/src/fltk-widgets-menus-menu_bars.adb +++ b/src/fltk-widgets-menus-menu_bars.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Menus.Menu_Bars 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 Menu_Bar is + begin + return This : Menu_Bar := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-menus-menu_bars.ads b/src/fltk-widgets-menus-menu_bars.ads index 53603b0..fc4b3ce 100644 --- a/src/fltk-widgets-menus-menu_bars.ads +++ b/src/fltk-widgets-menus-menu_bars.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Menus.Menu_Bars is @@ -22,6 +27,12 @@ package FLTK.Widgets.Menus.Menu_Bars is Text : in String := "") return Menu_Bar; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Menu_Bar; + end Forge; diff --git a/src/fltk-widgets-menus-menu_buttons.adb b/src/fltk-widgets-menus-menu_buttons.adb index 5d56e4d..f3c290f 100644 --- a/src/fltk-widgets-menus-menu_buttons.adb +++ b/src/fltk-widgets-menus-menu_buttons.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -164,6 +165,18 @@ package body FLTK.Widgets.Menus.Menu_Buttons 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 Menu_Button is + begin + return This : Menu_Button := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-menus-menu_buttons.ads b/src/fltk-widgets-menus-menu_buttons.ads index 6d866a0..b265d7c 100644 --- a/src/fltk-widgets-menus-menu_buttons.ads +++ b/src/fltk-widgets-menus-menu_buttons.ads @@ -8,6 +8,10 @@ with FLTK.Menu_Items; +limited with + + FLTK.Widgets.Groups; + package FLTK.Widgets.Menus.Menu_Buttons is @@ -30,6 +34,12 @@ package FLTK.Widgets.Menus.Menu_Buttons is Text : in String := "") return Menu_Button; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Menu_Button; + end Forge; diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb index 67c5ac9..9943bc9 100644 --- a/src/fltk-widgets-menus.adb +++ b/src/fltk-widgets-menus.adb @@ -8,6 +8,7 @@ with Ada.Assertions, Ada.Unchecked_Deallocation, + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -519,6 +520,18 @@ package body FLTK.Widgets.Menus 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 Menu is + begin + return This : Menu := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 75670b8..648def2 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -9,6 +9,10 @@ with FLTK.Menu_Items, Ada.Iterator_Interfaces; +limited with + + FLTK.Widgets.Groups; + private with Ada.Containers.Vectors, @@ -52,6 +56,12 @@ package FLTK.Widgets.Menus is Text : in String := "") return Menu; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Menu; + end Forge; diff --git a/src/fltk-widgets-positioners.adb b/src/fltk-widgets-positioners.adb index 0e3dfb2..053d731 100644 --- a/src/fltk-widgets-positioners.adb +++ b/src/fltk-widgets-positioners.adb @@ -7,6 +7,7 @@ with Ada.Assertions, + FLTK.Widgets.Groups, Interfaces.C; @@ -242,6 +243,18 @@ package body FLTK.Widgets.Positioners 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 Positioner is + begin + return This : Positioner := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-positioners.ads b/src/fltk-widgets-positioners.ads index 1da99b9..0603239 100644 --- a/src/fltk-widgets-positioners.ads +++ b/src/fltk-widgets-positioners.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Positioners is @@ -22,6 +27,12 @@ package FLTK.Widgets.Positioners is Text : in String := "") return Positioner; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Positioner; + end Forge; diff --git a/src/fltk-widgets-progress_bars.adb b/src/fltk-widgets-progress_bars.adb index 7e25c85..b82fef6 100644 --- a/src/fltk-widgets-progress_bars.adb +++ b/src/fltk-widgets-progress_bars.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -148,6 +149,18 @@ package body FLTK.Widgets.Progress_Bars 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 Progress_Bar is + begin + return This : Progress_Bar := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-progress_bars.ads b/src/fltk-widgets-progress_bars.ads index 71b0b92..01fe674 100644 --- a/src/fltk-widgets-progress_bars.ads +++ b/src/fltk-widgets-progress_bars.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Progress_Bars is @@ -22,6 +27,12 @@ package FLTK.Widgets.Progress_Bars is Text : in String := "") return Progress_Bar; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Progress_Bar; + end Forge; diff --git a/src/fltk-widgets-valuators-adjusters.adb b/src/fltk-widgets-valuators-adjusters.adb index b4a8bc3..89294e0 100644 --- a/src/fltk-widgets-valuators-adjusters.adb +++ b/src/fltk-widgets-valuators-adjusters.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -133,6 +134,18 @@ package body FLTK.Widgets.Valuators.Adjusters 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 Adjuster is + begin + return This : Adjuster := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-adjusters.ads b/src/fltk-widgets-valuators-adjusters.ads index 6211e99..c980d53 100644 --- a/src/fltk-widgets-valuators-adjusters.ads +++ b/src/fltk-widgets-valuators-adjusters.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Adjusters is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Adjusters is Text : in String := "") return Adjuster; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Adjuster; + end Forge; diff --git a/src/fltk-widgets-valuators-counters-simple.adb b/src/fltk-widgets-valuators-counters-simple.adb index 294a076..f1d39b8 100644 --- a/src/fltk-widgets-valuators-counters-simple.adb +++ b/src/fltk-widgets-valuators-counters-simple.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Counters.Simple 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 Simple_Counter is + begin + return This : Simple_Counter := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-counters-simple.ads b/src/fltk-widgets-valuators-counters-simple.ads index 9ff57fe..fd7e0e6 100644 --- a/src/fltk-widgets-valuators-counters-simple.ads +++ b/src/fltk-widgets-valuators-counters-simple.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Counters.Simple is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Counters.Simple is Text : in String := "") return Simple_Counter; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Simple_Counter; + end Forge; diff --git a/src/fltk-widgets-valuators-counters.adb b/src/fltk-widgets-valuators-counters.adb index 30001a8..619b074 100644 --- a/src/fltk-widgets-valuators-counters.adb +++ b/src/fltk-widgets-valuators-counters.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -175,6 +176,18 @@ package body FLTK.Widgets.Valuators.Counters 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 Counter is + begin + return This : Counter := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-counters.ads b/src/fltk-widgets-valuators-counters.ads index 0b2b31c..2cb4462 100644 --- a/src/fltk-widgets-valuators-counters.ads +++ b/src/fltk-widgets-valuators-counters.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Counters is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Counters is Text : in String := "") return Counter; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Counter; + end Forge; diff --git a/src/fltk-widgets-valuators-dials-fill.adb b/src/fltk-widgets-valuators-dials-fill.adb index 9b01946..ba378be 100644 --- a/src/fltk-widgets-valuators-dials-fill.adb +++ b/src/fltk-widgets-valuators-dials-fill.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Dials.Fill 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 Fill_Dial is + begin + return This : Fill_Dial := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-dials-fill.ads b/src/fltk-widgets-valuators-dials-fill.ads index a09582e..fdf02a8 100644 --- a/src/fltk-widgets-valuators-dials-fill.ads +++ b/src/fltk-widgets-valuators-dials-fill.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Dials.Fill is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Dials.Fill is Text : in String := "") return Fill_Dial; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Fill_Dial; + end Forge; diff --git a/src/fltk-widgets-valuators-dials-line.adb b/src/fltk-widgets-valuators-dials-line.adb index 16f9bef..c20a828 100644 --- a/src/fltk-widgets-valuators-dials-line.adb +++ b/src/fltk-widgets-valuators-dials-line.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Dials.Line 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 Line_Dial is + begin + return This : Line_Dial := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-dials-line.ads b/src/fltk-widgets-valuators-dials-line.ads index be8f554..f21d02c 100644 --- a/src/fltk-widgets-valuators-dials-line.ads +++ b/src/fltk-widgets-valuators-dials-line.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Dials.Line is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Dials.Line is Text : in String := "") return Line_Dial; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Line_Dial; + end Forge; diff --git a/src/fltk-widgets-valuators-dials.adb b/src/fltk-widgets-valuators-dials.adb index 02106f1..7905158 100644 --- a/src/fltk-widgets-valuators-dials.adb +++ b/src/fltk-widgets-valuators-dials.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -170,6 +171,18 @@ package body FLTK.Widgets.Valuators.Dials 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 Dial is + begin + return This : Dial := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-dials.ads b/src/fltk-widgets-valuators-dials.ads index f3c2b69..90fa4d4 100644 --- a/src/fltk-widgets-valuators-dials.ads +++ b/src/fltk-widgets-valuators-dials.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Dials is @@ -24,6 +29,12 @@ package FLTK.Widgets.Valuators.Dials is Text : in String := "") return Dial; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Dial; + end Forge; diff --git a/src/fltk-widgets-valuators-rollers.adb b/src/fltk-widgets-valuators-rollers.adb index a3966e5..912d374 100644 --- a/src/fltk-widgets-valuators-rollers.adb +++ b/src/fltk-widgets-valuators-rollers.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Rollers 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 Roller is + begin + return This : Roller := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-rollers.ads b/src/fltk-widgets-valuators-rollers.ads index aa9a9a5..7a5effc 100644 --- a/src/fltk-widgets-valuators-rollers.ads +++ b/src/fltk-widgets-valuators-rollers.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Rollers is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Rollers is Text : in String := "") return Roller; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Roller; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-fill.adb b/src/fltk-widgets-valuators-sliders-fill.adb index 504e390..faeef64 100644 --- a/src/fltk-widgets-valuators-sliders-fill.adb +++ b/src/fltk-widgets-valuators-sliders-fill.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Sliders.Fill 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 Fill_Slider is + begin + return This : Fill_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-fill.ads b/src/fltk-widgets-valuators-sliders-fill.ads index d13e604..56d71a2 100644 --- a/src/fltk-widgets-valuators-sliders-fill.ads +++ b/src/fltk-widgets-valuators-sliders-fill.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Fill is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Fill is Text : in String := "") return Fill_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Fill_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal.adb b/src/fltk-widgets-valuators-sliders-horizontal.adb index 1abde1b..fdb722c 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal.adb +++ b/src/fltk-widgets-valuators-sliders-horizontal.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Sliders.Horizontal 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 Horizontal_Slider is + begin + return This : Horizontal_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal.ads b/src/fltk-widgets-valuators-sliders-horizontal.ads index 3002f31..94d6eb3 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal.ads +++ b/src/fltk-widgets-valuators-sliders-horizontal.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Horizontal is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Horizontal is Text : in String := "") return Horizontal_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Horizontal_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal_fill.adb b/src/fltk-widgets-valuators-sliders-horizontal_fill.adb index 2376474..5b681a3 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal_fill.adb +++ b/src/fltk-widgets-valuators-sliders-horizontal_fill.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Sliders.Horizontal_Fill 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 Horizontal_Fill_Slider is + begin + return This : Horizontal_Fill_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal_fill.ads b/src/fltk-widgets-valuators-sliders-horizontal_fill.ads index e6e8938..be365db 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal_fill.ads +++ b/src/fltk-widgets-valuators-sliders-horizontal_fill.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Horizontal_Fill is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Horizontal_Fill is Text : in String := "") return Horizontal_Fill_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Horizontal_Fill_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal_nice.adb b/src/fltk-widgets-valuators-sliders-horizontal_nice.adb index d0a8fa8..3e3d89d 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal_nice.adb +++ b/src/fltk-widgets-valuators-sliders-horizontal_nice.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Sliders.Horizontal_Nice 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 Horizontal_Nice_Slider is + begin + return This : Horizontal_Nice_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-horizontal_nice.ads b/src/fltk-widgets-valuators-sliders-horizontal_nice.ads index a71d8f2..d049586 100644 --- a/src/fltk-widgets-valuators-sliders-horizontal_nice.ads +++ b/src/fltk-widgets-valuators-sliders-horizontal_nice.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Horizontal_Nice is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Horizontal_Nice is Text : in String := "") return Horizontal_Nice_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Horizontal_Nice_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-nice.adb b/src/fltk-widgets-valuators-sliders-nice.adb index ba99a62..b9bc449 100644 --- a/src/fltk-widgets-valuators-sliders-nice.adb +++ b/src/fltk-widgets-valuators-sliders-nice.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,17 @@ package body FLTK.Widgets.Valuators.Sliders.Nice 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 Nice_Slider is + begin + return This : Nice_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-nice.ads b/src/fltk-widgets-valuators-sliders-nice.ads index c835ccf..b56c783 100644 --- a/src/fltk-widgets-valuators-sliders-nice.ads +++ b/src/fltk-widgets-valuators-sliders-nice.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Nice is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Nice is Text : in String := "") return Nice_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Nice_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-scrollbars.adb b/src/fltk-widgets-valuators-sliders-scrollbars.adb index d27c4fa..26d9049 100644 --- a/src/fltk-widgets-valuators-sliders-scrollbars.adb +++ b/src/fltk-widgets-valuators-sliders-scrollbars.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -182,6 +183,18 @@ package body FLTK.Widgets.Valuators.Sliders.Scrollbars 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 Scrollbar is + begin + return This : Scrollbar := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-scrollbars.ads b/src/fltk-widgets-valuators-sliders-scrollbars.ads index 307e19b..79b4c69 100644 --- a/src/fltk-widgets-valuators-sliders-scrollbars.ads +++ b/src/fltk-widgets-valuators-sliders-scrollbars.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Scrollbars is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Scrollbars is Text : in String := "") return Scrollbar; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Scrollbar; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-value-horizontal.adb b/src/fltk-widgets-valuators-sliders-value-horizontal.adb index d60e46a..fd91800 100644 --- a/src/fltk-widgets-valuators-sliders-value-horizontal.adb +++ b/src/fltk-widgets-valuators-sliders-value-horizontal.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -109,6 +110,18 @@ package body FLTK.Widgets.Valuators.Sliders.Value.Horizontal 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 Horizontal_Value_Slider is + begin + return This : Horizontal_Value_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-value-horizontal.ads b/src/fltk-widgets-valuators-sliders-value-horizontal.ads index c666a4d..99d3993 100644 --- a/src/fltk-widgets-valuators-sliders-value-horizontal.ads +++ b/src/fltk-widgets-valuators-sliders-value-horizontal.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Value.Horizontal is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Value.Horizontal is Text : in String := "") return Horizontal_Value_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Horizontal_Value_Slider; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-value.adb b/src/fltk-widgets-valuators-sliders-value.adb index 54188b3..9d32529 100644 --- a/src/fltk-widgets-valuators-sliders-value.adb +++ b/src/fltk-widgets-valuators-sliders-value.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -148,6 +149,18 @@ package body FLTK.Widgets.Valuators.Sliders.Value 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 Value_Slider is + begin + return This : Value_Slider := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-sliders-value.ads b/src/fltk-widgets-valuators-sliders-value.ads index ac49524..f9f849f 100644 --- a/src/fltk-widgets-valuators-sliders-value.ads +++ b/src/fltk-widgets-valuators-sliders-value.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders.Value is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Sliders.Value is Text : in String := "") return Value_Slider; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Value_Slider; + end Forge; 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; diff --git a/src/fltk-widgets-valuators-sliders.ads b/src/fltk-widgets-valuators-sliders.ads index c89cb56..2307004 100644 --- a/src/fltk-widgets-valuators-sliders.ads +++ b/src/fltk-widgets-valuators-sliders.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Sliders is @@ -28,11 +33,24 @@ package FLTK.Widgets.Valuators.Sliders is return Slider; function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Slider; + + function Create (Kind : in Slider_Kind; X, Y, W, H : in Integer; Text : in String := "") return Slider; + 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; + end Forge; diff --git a/src/fltk-widgets-valuators-value_inputs.adb b/src/fltk-widgets-valuators-value_inputs.adb index 01f51bd..f92d03b 100644 --- a/src/fltk-widgets-valuators-value_inputs.adb +++ b/src/fltk-widgets-valuators-value_inputs.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -241,6 +242,18 @@ package body FLTK.Widgets.Valuators.Value_Inputs 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 Value_Input is + begin + return This : Value_Input := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-value_inputs.ads b/src/fltk-widgets-valuators-value_inputs.ads index 384d387..7392e78 100644 --- a/src/fltk-widgets-valuators-value_inputs.ads +++ b/src/fltk-widgets-valuators-value_inputs.ads @@ -8,6 +8,10 @@ with FLTK.Widgets.Inputs.Text; +limited with + + FLTK.Widgets.Groups; + package FLTK.Widgets.Valuators.Value_Inputs is @@ -27,6 +31,12 @@ package FLTK.Widgets.Valuators.Value_Inputs is Text : in String := "") return Value_Input; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Value_Input; + end Forge; diff --git a/src/fltk-widgets-valuators-value_outputs.adb b/src/fltk-widgets-valuators-value_outputs.adb index de6adf7..935e021 100644 --- a/src/fltk-widgets-valuators-value_outputs.adb +++ b/src/fltk-widgets-valuators-value_outputs.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; use type @@ -167,6 +168,18 @@ package body FLTK.Widgets.Valuators.Value_Outputs 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 Value_Output is + begin + return This : Value_Output := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators-value_outputs.ads b/src/fltk-widgets-valuators-value_outputs.ads index c5e383d..a8447a7 100644 --- a/src/fltk-widgets-valuators-value_outputs.ads +++ b/src/fltk-widgets-valuators-value_outputs.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators.Value_Outputs is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators.Value_Outputs is Text : in String := "") return Value_Output; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Value_Output; + end Forge; diff --git a/src/fltk-widgets-valuators.adb b/src/fltk-widgets-valuators.adb index 197111f..62ef77b 100644 --- a/src/fltk-widgets-valuators.adb +++ b/src/fltk-widgets-valuators.adb @@ -6,6 +6,7 @@ with + FLTK.Widgets.Groups, Interfaces.C.Strings; @@ -221,6 +222,18 @@ package body FLTK.Widgets.Valuators 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 Valuator is + begin + return This : Valuator := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets-valuators.ads b/src/fltk-widgets-valuators.ads index 83df44f..a056ded 100644 --- a/src/fltk-widgets-valuators.ads +++ b/src/fltk-widgets-valuators.ads @@ -4,6 +4,11 @@ -- Released into the public domain +limited with + + FLTK.Widgets.Groups; + + package FLTK.Widgets.Valuators is @@ -22,6 +27,12 @@ package FLTK.Widgets.Valuators is Text : in String := "") return Valuator; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Valuator; + end Forge; diff --git a/src/fltk-widgets.adb b/src/fltk-widgets.adb index beae56d..fdfec81 100644 --- a/src/fltk-widgets.adb +++ b/src/fltk-widgets.adb @@ -583,6 +583,18 @@ package body FLTK.Widgets 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 Widget is + begin + return This : Widget := Create (X, Y, W, H, Text) do + Parent.Add (This); + end return; + end Create; + end Forge; diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 03c3a59..64f9166 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -48,6 +48,12 @@ package FLTK.Widgets is Text : in String := "") return Widget; + function Create + (Parent : in out FLTK.Widgets.Groups.Group'Class; + X, Y, W, H : in Integer; + Text : in String := "") + return Widget; + end Forge; |