summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
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