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"!
Locked
