Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1169.mcz
==================== Summary ====================
Name: Morphic-cmm.1169 Author: cmm Time: 7 June 2016, 6:34:59.086637 pm UUID: b7aecab3-80da-402a-b8ed-1731c010ecd7 Ancestors: Morphic-tpr.1168
- Fix Cmd-Escape to close the *top* window, not the one under the hand. - Introduce new global hot-key Cmd-` (tilde) to bring the window under the hand to the front. Note that window under the hand can now be closed quickly via Cmd-[Tilde] + Cmd-[Escape].
=============== Diff against Morphic-tpr.1168 ===============
Item was added: + ----- Method: SystemWindow class>>bringWindowUnderHandToFront (in category 'top window') ----- + bringWindowUnderHandToFront + "This only works when All Windows Active is enabled." + (self windowsIn: World) do: [ : each | each isLookingFocused ifTrue: [ ^ each beKeyWindow ]]!
Item was added: + ----- Method: SystemWindow class>>deleteTopWindow (in category 'top window') ----- + deleteTopWindow + TopWindow ifNotNil: [ TopWindow delete ]!
Item was changed: ----- Method: SystemWindow>>filterEvent:for: (in category 'events') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [$] -> [self class sendTopWindowToBack]. + [Character escape] -> [self class deleteTopWindow]. + [$`] -> [self class bringWindowUnderHandToFront]. - [Character escape] -> [self delete]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. aKeyboardEvent controlKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [Character escape] -> [self world findWindow: aKeyboardEvent]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"].
^ aKeyboardEvent "no hit"!
packages@lists.squeakfoundation.org