summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2022-12-12 12:19:09 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2022-12-12 12:19:09 +1300
commit49bbb03a81f9f1f970f71c643820740aa20374d2 (patch)
treee6279f6aa0667d35b6e93dac535f446a39b67728 /src
parentc477cd9b9879692a03178e67e71448fc97033b66 (diff)
Key binding callbacks for Text_Editor widgets updated/fixed
Diffstat (limited to 'src')
-rw-r--r--src/fltk-widgets-groups-text_displays-text_editors.adb4
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