diff options
Diffstat (limited to 'src/fltk-widgets-inputs.adb')
-rw-r--r-- | src/fltk-widgets-inputs.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb index 9064ee8..b0796b6 100644 --- a/src/fltk-widgets-inputs.adb +++ b/src/fltk-widgets-inputs.adb @@ -482,17 +482,17 @@ package body FLTK.Widgets.Inputs is function Get_Shortcut_Key (This : in Input) - return Shortcut_Key is + return Key_Combo is begin - return C_To_Key (fl_input_get_shortcut (This.Void_Ptr)); + return To_Ada (fl_input_get_shortcut (This.Void_Ptr)); end Get_Shortcut_Key; procedure Set_Shortcut_Key (This : in out Input; - To : in Shortcut_Key) is + To : in Key_Combo) is begin - fl_input_set_shortcut (This.Void_Ptr, Key_To_C (To)); + fl_input_set_shortcut (This.Void_Ptr, To_C (To)); end Set_Shortcut_Key; |