From 49bbb03a81f9f1f970f71c643820740aa20374d2 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 12 Dec 2022 12:19:09 +1300 Subject: Key binding callbacks for Text_Editor widgets updated/fixed --- src/fltk-widgets-groups-text_displays-text_editors.adb | 4 ++-- 1 file 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 -- cgit