summaryrefslogtreecommitdiff
path: root/body/fltk-widgets-valuators-value_inputs.adb
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-02-18 12:54:42 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-02-18 12:54:42 +1300
commitd5fd3906e62969fce7fec7f2fccdc5a7436cbdbc (patch)
tree3f21adf51a8ea3aa75111c6653a6c8612608c096 /body/fltk-widgets-valuators-value_inputs.adb
parent36e546c1c9a9bb8e778fb637c17f94390b4d23c2 (diff)
Filled holes in FLTK, FLTK.Events, FLTK.Screen, tweaked Fl_Shortcut implementation
Diffstat (limited to 'body/fltk-widgets-valuators-value_inputs.adb')
-rw-r--r--body/fltk-widgets-valuators-value_inputs.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/body/fltk-widgets-valuators-value_inputs.adb b/body/fltk-widgets-valuators-value_inputs.adb
index 929d117..b107e3a 100644
--- a/body/fltk-widgets-valuators-value_inputs.adb
+++ b/body/fltk-widgets-valuators-value_inputs.adb
@@ -317,7 +317,7 @@ package body FLTK.Widgets.Valuators.Value_Inputs is
(This : in Value_Input)
return Key_Combo is
begin
- return To_Ada (fl_value_input_get_shortcut (This.Void_Ptr));
+ return To_Ada (Interfaces.C.unsigned (fl_value_input_get_shortcut (This.Void_Ptr)));
end Get_Shortcut;