1 files changed, 1 insertions, 7 deletions
diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-float.adb
index 2287140..4769c8a 100644
--- a/src/fltk-widgets-inputs-float.adb
+++ b/src/fltk-widgets-inputs-float.adb
@@ -26,11 +26,6 @@ package body FLTK.Widgets.Inputs.Float is
            (F : in System.Address);
     pragma Import (C, free_fl_float_input, "free_fl_float_input");
 
-    function fl_float_input_get_value
-           (F : in System.Address)
-        return Interfaces.C.Strings.chars_ptr;
-    pragma Import (C, fl_float_input_get_value, "fl_float_input_get_value");
-
 
 
 
@@ -102,8 +97,7 @@ package body FLTK.Widgets.Inputs.Float is
         return Standard.Float is
     begin
         return Standard.Float'Value
-               (Interfaces.C.Strings.Value
-                       (fl_float_input_get_value (This.Void_Ptr)));
+               (Interfaces.C.Strings.Value (fl_input_get_value (This.Void_Ptr)));
     end Get_Value;