From d5fd3906e62969fce7fec7f2fccdc5a7436cbdbc Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 18 Feb 2025 12:54:42 +1300
Subject: Filled holes in FLTK, FLTK.Events, FLTK.Screen, tweaked Fl_Shortcut
 implementation

---
 body/fltk-menu_items.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'body/fltk-menu_items.adb')

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;
 
 
-- 
cgit