[squeak-dev] The Trunk: Morphic-mt.1612.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 23 10:28:29 UTC 2019


Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1612.mcz

==================== Summary ====================

Name: Morphic-mt.1612
Author: mt
Time: 23 December 2019, 11:28:22.440349 am
UUID: e9dac727-05f5-6d4a-9559-98564f39afe6
Ancestors: Morphic-mt.1611

Fixes issue with CTRL+CMD (key down) combinations and unexpectedly selecting the "Tools" menu on some platforms due to low-level key codes in such key-down events.

Complements Kernel-mt.1290.

=============== Diff against Morphic-mt.1611 ===============

Item was changed:
  ----- Method: DockingBarMorph>>filterEvent:for: (in category 'events-processing') -----
  filterEvent: aKeyboardEvent for: anObject
  	"Provide keyboard shortcuts."
  	
  	| index itemToSelect |
  
  	aKeyboardEvent controlKeyPressed
  		ifFalse: [^ aKeyboardEvent].
  
+ 	aKeyboardEvent isKeystroke
- 	(aKeyboardEvent isKeyDown or: [aKeyboardEvent isKeystroke]) "We also need #keyDown for Windows platforms because CTRL+X does not trigger key strokes there..."
  		ifFalse: [^ aKeyboardEvent].
  			
  	"Search field."
  	aKeyboardEvent keyCharacter = $0
  		ifTrue: [
  			self searchBarMorph ifNotNil: [ :morph |
  				morph model activate: aKeyboardEvent in: morph ].
  			^ aKeyboardEvent ignore "hit!!"].
  	
  	"Select menu items."
  	(aKeyboardEvent keyValue 
  		between: $1 asciiValue 
  		and: $9 asciiValue)
  			ifFalse: [^ aKeyboardEvent].	
  			
  	index := aKeyboardEvent keyValue - $1 asciiValue + 1.
  	itemToSelect := (self submorphs select: [ :each | 
  		each isKindOf: DockingBarItemMorph ]) 
  			at: index 
  			ifAbsent: [^ aKeyboardEvent].
  			
  	self activate: aKeyboardEvent.
  	self 
  		selectItem: itemToSelect
  		event: aKeyboardEvent.
  
  	^ aKeyboardEvent ignore "hit!!"!



More information about the Squeak-dev mailing list