cocoa: allow default handling of Cmd-` for cycling windows

Closes PR 11499
 but it's not clear that this is the right fix for all users
This commit is contained in:
Matthew Flatt 2010-12-08 19:56:02 -07:00
parent aee9f41d53
commit 355cf25b5f

View File

@ -46,7 +46,12 @@
(tell #:type _BOOL the-apple-menu performKeyEquivalent: evt))
;; Explicity send the event to the keyWindow:
(and
;; Don't go into an infinite loop:
(not (recurring-for-command))
;; Don't handle Cmd-` for cycling through windows:
;; [Is this right for all locales?]
(not (equal? "`" (tell #:type _NSString evt characters)))
;; Otherwise, try to dispatch to the first respnder:
(let ([w (tell app keyWindow)])
(and w
(let ([r (tell w firstResponder)])