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

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

Name: Morphic-mt.2093
Author: mt
Time: 23 February 2023, 3:22:39.829976 pm
UUID: 16263c0a-3cc5-cb4c-8cf3-53eda4c76b4e
Ancestors: Morphic-mt.2092

Tree widgets: when collapsing a node via mouse-click, do not select that parent unless there was actually a prior selection (in that collapsed sub-tree).

=============== Diff against Morphic-mt.2092 ===============

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 ifNil: [^ super mouseDown: evt].
  
  	(aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)])
+ 		ifTrue: [ | priorSelection |
+ 			priorSelection := self selectedMorph.
- 		ifTrue: [
  			self toggleExpandedState: aMorph event: evt.
+ 			(priorSelection notNil and: [self selectedMorph isNil]) ifTrue: [
- 			self selectedMorph ifNil: [
  				self setProperty: #changeSelectionOnMouseUp toValue: true.
  				self setProperty: #selectedMorph toValue: aMorph].
  			^ self]. 
  	
  	PluggableListMorph highlightPreSelection ifTrue: [
  		aMorph highlightedForMouseDown: true.
  		self setProperty: #highlightedMorph toValue: aMorph].
  	
  	self setProperty: #changeSelectionOnMouseUp toValue: true.
  	
  	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".!