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!!"!
packages@lists.squeakfoundation.org