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;