diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-05-15 16:30:58 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-05-15 16:30:58 +1000 |
commit | d45103f2445ed59b7ba78faeae8061327c4ab976 (patch) | |
tree | 78b9aba4e3d7a303473400b6c809ecf657c4b9e1 /src/fltk-widgets-inputs-integer.adb | |
parent | 1cd018b440f80601f60908c2e5675413f5c77e25 (diff) |
Fixed errors with Event Dispatch and null string pointers
Diffstat (limited to 'src/fltk-widgets-inputs-integer.adb')
-rw-r--r-- | src/fltk-widgets-inputs-integer.adb | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/fltk-widgets-inputs-integer.adb b/src/fltk-widgets-inputs-integer.adb index 2f41e73..1e04d5a 100644 --- a/src/fltk-widgets-inputs-integer.adb +++ b/src/fltk-widgets-inputs-integer.adb @@ -7,6 +7,7 @@ with use type + Interfaces.C.Strings.chars_ptr, System.Address; @@ -100,10 +101,15 @@ package body FLTK.Widgets.Inputs.Integer is function Get_Value (This : in Integer_Input) - return Standard.Integer is + return Standard.Integer + is + Ptr : Interfaces.C.Strings.chars_ptr := fl_input_get_value (This.Void_Ptr); begin - return Standard.Integer'Value - (Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr))); + if Ptr = Interfaces.C.Strings.Null_Ptr then + return 0; + else + return Standard.Integer'Value (Interfaces.C.Strings.Value (Ptr)); + end if; end Get_Value; |