[squeak-dev] The Inbox: Morphic-ct.1786.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 18 15:52:31 UTC 2021
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1786.mcz
==================== Summary ====================
Name: Morphic-ct.1786
Author: ct
Time: 18 October 2021, 5:52:25.059559 pm
UUID: 322e30d5-aa3f-cb45-843c-c01bf40a00a1
Ancestors: Morphic-ul.1780
Do not invoke docking bar menu via Ctrl + Shift + <number>. Keep this shortcut available for others morphs.
=============== Diff against Morphic-ul.1780 ===============
Item was changed:
----- Method: DockingBarMorph>>filterEvent:for: (in category 'events-processing') -----
filterEvent: aKeyboardEvent for: anObject
"Provide keyboard shortcuts."
| index itemToSelect |
+ (aKeyboardEvent isKeystroke and: [aKeyboardEvent controlKeyPressed] and: [aKeyboardEvent shiftPressed not])
-
- aKeyboardEvent controlKeyPressed
ifFalse: [^ aKeyboardEvent].
+
-
- aKeyboardEvent isKeystroke
- 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 isMenuItemMorph ])
at: index
ifAbsent: [^ aKeyboardEvent].
+
-
self activate: aKeyboardEvent.
self
selectItem: itemToSelect
event: aKeyboardEvent.
+
-
^ aKeyboardEvent ignore "hit!!"!
More information about the Squeak-dev
mailing list
|