1 files changed, 1 insertions, 17 deletions
diff --git a/body/fltk-widgets-buttons.adb b/body/fltk-widgets-buttons.adb
index d6e587e..2d1e169 100644
--- a/body/fltk-widgets-buttons.adb
+++ b/body/fltk-widgets-buttons.adb
@@ -116,22 +116,6 @@ package body FLTK.Widgets.Buttons is
     --  Destructors  --
     -------------------
 
-    --  Clipper route successfully navigated
-    procedure button_extra_final_hook
-           (Ada_Obj : in Storage.Integer_Address);
-    pragma Export (C, button_extra_final_hook, "button_extra_final_hook");
-
-    procedure button_extra_final_hook
-           (Ada_Obj : in Storage.Integer_Address)
-    is
-        My_Button : Button;
-        for My_Button'Address use Storage.To_Address (Ada_Obj);
-        pragma Import (Ada, My_Button);
-    begin
-        Extra_Final (My_Button);
-    end button_extra_final_hook;
-
-
     procedure Extra_Final
            (This : in out Button) is
     begin
@@ -293,7 +277,7 @@ package body FLTK.Widgets.Buttons is
            (This : in Button)
         return Key_Combo is
     begin
-        return To_Ada (fl_button_get_shortcut (This.Void_Ptr));
+        return To_Ada (Interfaces.C.unsigned (fl_button_get_shortcut (This.Void_Ptr)));
     end Get_Shortcut;