Fixed errors with Event Dispatch and null string pointers

1 files changed, 10 insertions, 3 deletions

diff --git a/src/fltk-widgets-inputs-file.adb b/src/fltk-widgets-inputs-file.adb
index 222b847..92836c8 100644
--- a/src/fltk-widgets-inputs-file.adb
+++ b/src/fltk-widgets-inputs-file.adb
@@ -7,6 +7,7 @@ with
 
 use type
 
+    Interfaces.C.Strings.chars_ptr,
     System.Address;
 
 
@@ -177,10 +178,16 @@ package body FLTK.Widgets.Inputs.File is
 
     function Get_Value
            (This : in Input)
-        return String is
+        return String
+    is
+        Ptr : Interfaces.C.Strings.chars_ptr := fl_file_input_get_value (This.Void_Ptr);
     begin
-        --  pointer to internal buffer only, so no Free required
-        return Interfaces.C.Strings.Value (fl_file_input_get_value (This.Void_Ptr));
+        if Ptr = Interfaces.C.Strings.Null_Ptr then
+            return "";
+        else
+            --  pointer to internal buffer only, so no Free required
+            return Interfaces.C.Strings.Value (Ptr);
+        end if;
     end Get_Value;