1 files changed, 2 insertions, 10 deletions
diff --git a/body/fltk-widgets-valuators-value_inputs.adb b/body/fltk-widgets-valuators-value_inputs.adb
index 929d117..1909c1c 100644
--- a/body/fltk-widgets-valuators-value_inputs.adb
+++ b/body/fltk-widgets-valuators-value_inputs.adb
@@ -7,7 +7,7 @@
 with
 
     FLTK.Widgets.Groups,
-    Interfaces.C.Strings;
+    Interfaces.C;
 
 use type
 
@@ -173,17 +173,9 @@ package body FLTK.Widgets.Valuators.Value_Inputs is
     --  Destructors  --
     -------------------
 
-    --  Making a long distance telephone call
-    procedure fl_text_input_extra_final
-           (Ada_Obj : in Storage.Integer_Address);
-    pragma Import (C, fl_text_input_extra_final, "fl_text_input_extra_final");
-    pragma Inline (fl_text_input_extra_final);
-
-
     procedure Extra_Final
            (This : in out Value_Input) is
     begin
-        fl_text_input_extra_final (Storage.To_Integer (This.My_Input'Address));
         Extra_Final (Valuator (This));
     end Extra_Final;
 
@@ -317,7 +309,7 @@ package body FLTK.Widgets.Valuators.Value_Inputs is
            (This : in Value_Input)
         return Key_Combo is
     begin
-        return To_Ada (fl_value_input_get_shortcut (This.Void_Ptr));
+        return To_Ada (Interfaces.C.unsigned (fl_value_input_get_shortcut (This.Void_Ptr)));
     end Get_Shortcut;