Changed Integer_Input package name

2 files changed, 9 insertions, 9 deletions

diff --git a/src/fltk-widgets-inputs-int.adb b/src/fltk-widgets-inputs-integer.adb
index 1b73c6a..0f2c711 100644
--- a/src/fltk-widgets-inputs-int.adb
+++ b/src/fltk-widgets-inputs-integer.adb
@@ -5,7 +5,7 @@ with System;
 use type System.Address;
 
 
-package body FLTK.Widgets.Inputs.Int is
+package body FLTK.Widgets.Inputs.Integer is
 
 
     procedure int_input_set_draw_hook
@@ -76,7 +76,7 @@ package body FLTK.Widgets.Inputs.Int is
 
 
     function Create
-           (X, Y, W, H : in Integer;
+           (X, Y, W, H : in Standard.Integer;
             Text       : in String)
         return Integer_Input is
     begin
@@ -99,13 +99,13 @@ package body FLTK.Widgets.Inputs.Int is
 
     function Get_Value
            (This : in Integer_Input)
-        return Integer is
+        return Standard.Integer is
     begin
-        return Integer'Value
+        return Standard.Integer'Value
                (Interfaces.C.Strings.Value
                        (fl_int_input_get_value (This.Void_Ptr)));
     end Get_Value;
 
 
-end FLTK.Widgets.Inputs.Int;
+end FLTK.Widgets.Inputs.Integer;
 
diff --git a/src/fltk-widgets-inputs-int.ads b/src/fltk-widgets-inputs-integer.ads
index e8d1184..4699028 100644
--- a/src/fltk-widgets-inputs-int.ads
+++ b/src/fltk-widgets-inputs-integer.ads
@@ -1,20 +1,20 @@
 
 
-package FLTK.Widgets.Inputs.Int is
+package FLTK.Widgets.Inputs.Integer is
 
 
     type Integer_Input is new Input with private;
 
 
     function Create
-           (X, Y, W, H : in Integer;
+           (X, Y, W, H : in Standard.Integer;
             Text       : in String)
         return Integer_Input;
 
 
     function Get_Value
            (This : in Integer_Input)
-        return Integer;
+        return Standard.Integer;
 
 
     procedure Draw
@@ -31,5 +31,5 @@ private
            (This : in out Integer_Input);
 
 
-end FLTK.Widgets.Inputs.Int;
+end FLTK.Widgets.Inputs.Integer;