[squeak-dev] The Trunk: Morphic-cmm.1169.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jun 7 23:35:44 UTC 2016


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



More information about the Squeak-dev mailing list