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

1 files changed, 2 insertions, 2 deletions

diff --git a/body/fltk-widgets-inputs.adb b/body/fltk-widgets-inputs.adb
index 888ef68..ef791be 100644
--- a/body/fltk-widgets-inputs.adb
+++ b/body/fltk-widgets-inputs.adb
@@ -633,7 +633,7 @@ package body FLTK.Widgets.Inputs is
            (This : in Input)
         return Key_Combo is
     begin
-        return To_Ada (fl_input_get_shortcut (This.Void_Ptr));
+        return To_Ada (Interfaces.C.unsigned (fl_input_get_shortcut (This.Void_Ptr)));
     end Get_Shortcut;
 
 
@@ -641,7 +641,7 @@ package body FLTK.Widgets.Inputs is
            (This : in out Input;
             To   : in     Key_Combo) is
     begin
-        fl_input_set_shortcut (This.Void_Ptr, To_C (To));
+        fl_input_set_shortcut (This.Void_Ptr, Interfaces.C.int (To_C (To)));
     end Set_Shortcut;