diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 00:42:19 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 00:42:19 +1300 |
commit | 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 (patch) | |
tree | fcd903955511ba8798e76f76154c4d5b841ad6a5 /src/fltk-widgets-inputs.adb | |
parent | f27eb859eff94ec9c13239daee15f60ffecde089 (diff) |
Filled holes in Fl_Text_Editor binding and make key/modifier/shortcut/flag representations more in line with C++
Diffstat (limited to 'src/fltk-widgets-inputs.adb')
-rw-r--r-- | src/fltk-widgets-inputs.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-widgets-inputs.adb b/src/fltk-widgets-inputs.adb index 1030ac0..3ba8192 100644 --- a/src/fltk-widgets-inputs.adb +++ b/src/fltk-widgets-inputs.adb @@ -138,13 +138,13 @@ package body FLTK.Widgets.Inputs is function fl_input_get_shortcut (I : in Storage.Integer_Address) - return Interfaces.C.unsigned_long; + return Interfaces.C.int; pragma Import (C, fl_input_get_shortcut, "fl_input_get_shortcut"); pragma Inline (fl_input_get_shortcut); procedure fl_input_set_shortcut (I : in Storage.Integer_Address; - T : in Interfaces.C.unsigned_long); + T : in Interfaces.C.int); pragma Import (C, fl_input_set_shortcut, "fl_input_set_shortcut"); pragma Inline (fl_input_set_shortcut); |