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-draw.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-draw.adb')
| -rw-r--r-- | src/fltk-draw.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-draw.adb b/src/fltk-draw.adb index 79d34ff..8e98a7f 100644 --- a/src/fltk-draw.adb +++ b/src/fltk-draw.adb @@ -53,7 +53,7 @@ package body FLTK.Draw is pragma Inline (fl_draw_can_do_alpha_blending); function fl_draw_shortcut_label - (Shortcut : in Interfaces.C.unsigned_long) + (Shortcut : in Interfaces.C.unsigned) return Interfaces.C.Strings.chars_ptr; pragma Import (C, fl_draw_shortcut_label, "fl_draw_shortcut_label"); pragma Inline (fl_draw_shortcut_label); @@ -694,7 +694,7 @@ package body FLTK.Draw is return String is begin return Interfaces.C.Strings.Value - (fl_draw_shortcut_label (To_C (Keys))); + (fl_draw_shortcut_label (Interfaces.C.unsigned (To_C (Keys)))); end Shortcut_Label; |