*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 02 Nov 2019 13:26:33 +0100
changeset 8858 1a64faf25e1b
parent 8857 fb8ba3ad5842
child 8859 4f228c89da55
*** empty log message ***
XWorkstation.st
--- a/XWorkstation.st	Fri Nov 01 12:32:17 2019 +0100
+++ b/XWorkstation.st	Sat Nov 02 13:26:33 2019 +0100
@@ -6620,11 +6620,12 @@
 	keyPressAndRelease:
 	    arg = nil;
 	    nchars = XLookupString(ke, (char *)buffer, sizeof(buffer), &keySym, NULL);
-	    if (nchars == 1 && (((buffer[0] >= ' ') && (buffer[0] <= '~'))
-		|| (buffer[0] >= 0x80))) {
+	    // fprintf(stderr, "string: '%s' (l=%d); keysym: %x\n", buffer, strlen(buffer), keySym);
+	    if (nchars == 1
+	     && (((buffer[0] >= ' ') && (buffer[0] <= '~'))
+		 || (buffer[0] >= 0x80))
+	    ) {
 		arg = __MKCHARACTER(buffer[0]);
-//            } else if (nchars > 2) {
-//                arg = __MKSTRING_L(buffer, nchars);
 	    } else {
 		keySymString = XKeysymToString(keySym);
 		if (keySymString) {