[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
|