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-widgets-buttons.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'body/fltk-widgets-buttons.adb')

diff --git a/body/fltk-widgets-buttons.adb b/body/fltk-widgets-buttons.adb
index d6e587e..bc78d8d 100644
--- a/body/fltk-widgets-buttons.adb
+++ b/body/fltk-widgets-buttons.adb
@@ -293,7 +293,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;
 
 
-- 
cgit