[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