devdraw: fix Mac Kcmd+Shift
Change-Id: Ide32a9397701085b17fbd42f0866eb3de11e4190
Reviewed-on: https://plan9port-review.googlesource.com/2940
Reviewed-by: Russ Cox <rsc@swtch.com>
diff --git a/src/cmd/devdraw/cocoa-screen.m b/src/cmd/devdraw/cocoa-screen.m
index 7aebae2..6a3f70f 100644
--- a/src/cmd/devdraw/cocoa-screen.m
+++ b/src/cmd/devdraw/cocoa-screen.m
@@ -30,6 +30,7 @@
// Use non-deprecated names.
#define NSKeyDown NSEventTypeKeyDown
+#define NSShiftKeyMask NSEventModifierFlagShift
#define NSAlternateKeyMask NSEventModifierFlagOption
#define NSCommandKeyMask NSEventModifierFlagCommand
#define NSResizableWindowMask NSWindowStyleMaskResizable
@@ -903,6 +904,8 @@
interpretdeadkey(e);
if(m & NSCommandKeyMask){
+ if((m & NSShiftKeyMask) && 'a' <= c && c <= 'z')
+ c += 'A' - 'a';
if(' '<=c && c<='~')
keystroke(Kcmd+c);
break;