diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2022-12-12 12:19:09 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2022-12-12 12:19:09 +1300 |
| commit | 49bbb03a81f9f1f970f71c643820740aa20374d2 (patch) | |
| tree | e6279f6aa0667d35b6e93dac535f446a39b67728 | |
| parent | c477cd9b9879692a03178e67e71448fc97033b66 (diff) | |
Key binding callbacks for Text_Editor widgets updated/fixed
| -rw-r--r-- | src/fltk-widgets-groups-text_displays-text_editors.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-widgets-groups-text_displays-text_editors.adb b/src/fltk-widgets-groups-text_displays-text_editors.adb index 7c692c7..17776c4 100644 --- a/src/fltk-widgets-groups-text_displays-text_editors.adb +++ b/src/fltk-widgets-groups-text_displays-text_editors.adb @@ -362,8 +362,8 @@ package body FLTK.Widgets.Groups.Text_Displays.Text_Editors is Ada_Editor : access Text_Editor'Class := Editor_Convert.To_Pointer (fl_widget_get_user_data (E)); Modi : Modifier := FLTK.Event.Last_Modifier; - Ada_Key : Key_Combo := - To_Ada (Interfaces.C.unsigned_long (K) + To_C (Modi)); + Actual_Key : Keypress := FLTK.Event.Last_Key; -- fuck you FLTK, give me the real code + Ada_Key : Key_Combo := To_Ada (To_C (Actual_Key) + To_C (Modi)); Found_Binding : Boolean := False; begin |