summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fltk-widgets-inputs-integer.adb (renamed from src/fltk-widgets-inputs-int.adb)10
-rw-r--r--src/fltk-widgets-inputs-integer.ads (renamed from src/fltk-widgets-inputs-int.ads)8
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;