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

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

Name: Morphic-mt.2074
Author: mt
Time: 26 January 2023, 10:17:17.173707 am
UUID: 86716017-7fb9-0a4f-8636-4cad85f37d89
Ancestors: Morphic-mt.2073

Complement ToolBuilder-Morphic-mt.325

=============== Diff against Morphic-mt.2073 ===============

Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>doubleClickEnabled (in category 'accessing') -----
+ doubleClickEnabled
+ 
+ 	^ false!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>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: nil
  		with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]).
  	evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!