From 1f66d0a599568971adc708d70ee9777259669fa9 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Fri, 28 Nov 2025 22:47:50 +0100 Subject: Fix GDK keysyms --- UViewer.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'UViewer.pas') diff --git a/UViewer.pas b/UViewer.pas index 4c37af2..0c20b96 100644 --- a/UViewer.pas +++ b/UViewer.pas @@ -252,18 +252,18 @@ begin smooth_scroll(hadj, x, False); Accept := False; end; - GDK_KEY_W: if (Shift = []) then begin + GDK_KEY_W, GDK_KEY_w_: if (Shift = []) then begin if TextView.WrapMode = wmWrapNone then TextView.WrapMode := wmWrapWord else TextView.WrapMode := wmWrapNone; Accept := False; end; // GDK_C, GDK_Capital_C, GDK_Insert: if (ssCtrl in Shift) then Accept := True; - GDK_KEY_S: if (Shift = []) then begin + GDK_KEY_S, GDK_KEY_s_: if (Shift = []) then begin ConfViewerMonospaceFont := True; ApplyFont; Accept := False; end; - GDK_KEY_A: if (Shift = []) then begin + GDK_KEY_A, GDK_KEY_a_: if (Shift = []) then begin ConfViewerMonospaceFont := False; ApplyFont; Accept := False; -- cgit v1.2.3