Filled holes in FLTK, FLTK.Events, FLTK.Screen, tweaked Fl_Shortcut implementation

1 files changed, 2 insertions, 2 deletions

diff --git a/body/fltk-menu_items.adb b/body/fltk-menu_items.adb
index 7ee4d61..dfb579a 100644
--- a/body/fltk-menu_items.adb
+++ b/body/fltk-menu_items.adb
@@ -297,7 +297,7 @@ package body FLTK.Menu_Items is
                 This.Void_Ptr := new_fl_menu_item
                    (Interfaces.C.To_C (Text),
                     Callback_Convert.To_Address (Action),
-                    To_C (Shortcut),
+                    Interfaces.C.int (To_C (Shortcut)),
                     MFlag_To_Cint (Flags));
             end return;
         end Create;
@@ -536,7 +536,7 @@ package body FLTK.Menu_Items is
            (This : in Menu_Item)
         return Key_Combo is
     begin
-        return To_Ada (fl_menu_item_get_shortcut (This.Void_Ptr));
+        return To_Ada (Interfaces.C.unsigned (fl_menu_item_get_shortcut (This.Void_Ptr)));
     end Get_Shortcut;