From f9e453e3d456514066e8ecbed9fbac93a588a0d0 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 21 Jan 2025 00:53:56 +1300
Subject: Using the type method is now more consistent

---
 src/fltk-widgets-inputs.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/fltk-widgets-inputs.adb')

diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb
index 3ba8192..0d3a3fe 100644
--- a/src/fltk-widgets-inputs.adb
+++ b/src/fltk-widgets-inputs.adb
@@ -586,7 +586,7 @@ package body FLTK.Widgets.Inputs is
 
 
 
-    function Get_Input_Type
+    function Get_Kind
            (This : in Input)
         return Input_Kind
     is
@@ -597,8 +597,8 @@ package body FLTK.Widgets.Inputs is
                 return V;
             end if;
         end loop;
-        return Normal_Kind;
-    end Get_Input_Type;
+        return Normal_Field;
+    end Get_Kind;
 
 
     function Get_Shortcut_Key
@@ -930,14 +930,14 @@ package body FLTK.Widgets.Inputs is
 
     package body Extra is
 
-        procedure Set_Input_Type
+        procedure Set_Kind
                (This : in out Input;
                 To   : in     Input_Kind) is
         begin
             fl_input_set_input_type (This.Void_Ptr, Input_Kind_Values (To));
-        end Set_Input_Type;
+        end Set_Kind;
 
-        pragma Inline (Set_Input_Type);
+        pragma Inline (Set_Kind);
 
     end Extra;
 
-- 
cgit