Merge pull request #457 from smalltalking/fix-shfit-tab-on-unix

Fix shift-tab on unix
OpenSmalltalk · Dec 24, 2019 · af24eab · af24eab
2 parents 4d9a39a + 9de5fee
commit af24eab
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/platforms/unix/vm-display-X11/sqUnixX11.c b/platforms/unix/vm-display-X11/sqUnixX11.c
@@ -2417,7 +2417,10 @@ static int xkeysym2ucs4(KeySym keysym)
  	return keysym & 0x007f;
   if (keysym == XK_KP_Equal)
     return XK_equal;
-
+# if defined(XK_ISO_Left_Tab)
+  if (keysym == XK_ISO_Left_Tab) /* make shift-tab work */
+    return 9;
+#endif
 
   /* explicitly mapped */
 #define map(lo, hi) if (keysym >= 0x##lo && keysym <= 0x##hi) return ucs4_##lo##_##hi[keysym - 0x##lo];