diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-09 14:58:19 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-09 14:58:19 +1300 |
| commit | 17473af7e8ed13e0a9399a69442f9839e5d83aef (patch) | |
| tree | 6cd9adf8cde65847f34fbd1cf0ac61c3ad5936ea /src/fltk-widgets-valuators-value_inputs.ads | |
| parent | 3a9028302447ad84363c580b2152f30417186667 (diff) | |
Used C FFI to make Extra_Init and Extra_Final calls more consistent
Diffstat (limited to 'src/fltk-widgets-valuators-value_inputs.ads')
| -rw-r--r-- | src/fltk-widgets-valuators-value_inputs.ads | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/fltk-widgets-valuators-value_inputs.ads b/src/fltk-widgets-valuators-value_inputs.ads index 861086b..10a5824 100644 --- a/src/fltk-widgets-valuators-value_inputs.ads +++ b/src/fltk-widgets-valuators-value_inputs.ads @@ -6,7 +6,7 @@ with - FLTK.Widgets.Inputs; + FLTK.Widgets.Inputs.Text; package FLTK.Widgets.Valuators.Value_Inputs is @@ -32,9 +32,9 @@ package FLTK.Widgets.Valuators.Value_Inputs is - function Input + function Text_Field (This : in out Value_Input) - return FLTK.Widgets.Inputs.Input_Reference; + return FLTK.Widgets.Inputs.Text.Text_Input_Reference; @@ -112,7 +112,7 @@ private type Value_Input is new Valuator with record - My_Input : aliased Inputs.Input; + My_Input : aliased Inputs.Text.Text_Input; end record; overriding procedure Finalize @@ -128,7 +128,7 @@ private with Inline; - pragma Inline (Input); + pragma Inline (Text_Field); pragma Inline (Get_Cursor_Color); pragma Inline (Set_Cursor_Color); |