diff options
| -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; |