diff options
Diffstat (limited to 'src/fltk-widgets-inputs-float.adb')
| -rw-r--r-- | src/fltk-widgets-inputs-float.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-float.adb index f62fd00..b278b14 100644 --- a/src/fltk-widgets-inputs-float.adb +++ b/src/fltk-widgets-inputs-float.adb @@ -106,7 +106,9 @@ package body FLTK.Widgets.Inputs.Float is is Ptr : Interfaces.C.Strings.chars_ptr := fl_input_get_value (This.Void_Ptr); begin - if Ptr = Interfaces.C.Strings.Null_Ptr then + if Ptr = Interfaces.C.Strings.Null_Ptr or else + Interfaces.C.Strings.Value (Ptr) = "" + then return 0.0; else return Standard.Float'Value (Interfaces.C.Strings.Value (Ptr)); |