Fix GDK keysymsgtk3_port

1 files changed, 3 insertions, 3 deletions

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;