From 17473af7e8ed13e0a9399a69442f9839e5d83aef Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 9 Jan 2025 14:58:19 +1300
Subject: Used C FFI to make Extra_Init and Extra_Final calls more consistent

---
 src/fltk-widgets-valuators-value_inputs.ads | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/fltk-widgets-valuators-value_inputs.ads')

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);
-- 
cgit