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

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

Name: ToolBuilder-Morphic-mt.325
Author: mt
Time: 26 January 2023, 10:16:05.732707 am
UUID: 5a111852-b783-a84a-a916-baffdb42a7b3
Ancestors: ToolBuilder-Morphic-mt.324

Remove some code duplication in SimpleHierarchicalListMorph and PluggableTreeMorph.

=============== Diff against ToolBuilder-Morphic-mt.324 ===============

Item was removed:
- ----- Method: PluggableTreeMorph>>mouseDown: (in category 'event handling') -----
- mouseDown: evt
- 	| aMorph selectors |
- 	
- 	aMorph := self itemFromPoint: evt position.
- 	evt yellowButtonPressed  "First check for option (menu) click"
- 		ifTrue: [
- 			(PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [
- 				aMorph == selectedMorph 
- 					ifFalse: [self setSelectedMorph: aMorph]].
- 			^ self yellowButtonActivity: evt shiftPressed].
- 	(aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)])
- 		ifTrue:[^self toggleExpandedState: aMorph event: evt]. 
- 	aMorph ifNil:[^super mouseDown: evt].
- 	
- 	aMorph highlightForMouseDown.
- 	self setProperty: #highlightedMorph toValue: aMorph.
- 	
- 	selectors := Array 
- 		with: #click:
- 		with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil])
- 		with: nil
- 		with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]).
- 	evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!