diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-05-09 13:52:31 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-05-09 13:52:31 +1000 |
commit | d3b6a05cf266af9d426e9756a1b2deafdbca35fe (patch) | |
tree | 339633239c779089af2794aef5bb0c626743ad5d /src | |
parent | e9207bcaeee8892d617013035814552aed9b3ff9 (diff) |
Changed Integer_Input package name
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; |