From d45103f2445ed59b7ba78faeae8061327c4ab976 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 15 May 2018 16:30:58 +1000 Subject: Fixed errors with Event Dispatch and null string pointers --- src/fltk-widgets-inputs-float.adb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/fltk-widgets-inputs-float.adb') diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-float.adb index 3b1b5b3..1ddb2f2 100644 --- a/src/fltk-widgets-inputs-float.adb +++ b/src/fltk-widgets-inputs-float.adb @@ -7,6 +7,7 @@ with use type + Interfaces.C.Strings.chars_ptr, System.Address; @@ -100,10 +101,15 @@ package body FLTK.Widgets.Inputs.Float is function Get_Value (This : in Float_Input) - return Standard.Float is + return Standard.Float + is + Ptr : Interfaces.C.Strings.chars_ptr := fl_input_get_value (This.Void_Ptr); begin - return Standard.Float'Value - (Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr))); + if Ptr = Interfaces.C.Strings.Null_Ptr then + return 0.0; + else + return Standard.Float'Value (Interfaces.C.Strings.Value (Ptr)); + end if; end Get_Value; -- cgit