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

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

Name: ToolBuilder-Morphic-mt.332
Author: mt
Time: 30 January 2023, 1:12:59.299867 pm
UUID: 029fda2f-65e0-4d4f-b45b-3b7b28f79a32
Ancestors: ToolBuilder-Morphic-mt.331

In tree widgets, fixes drag-and-drop regression.

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

Item was changed:
  ----- Method: PluggableTreeMorph>>startDrag: (in category 'drag and drop') -----
  startDrag: evt 
  	
  	| itemMorph |
  	self dragItemSelector ifNil: [^ self].
  	evt hand hasSubmorphs ifTrue: [^ self].
  	self model okToChange ifFalse: [^ self].
  	
+ 	(itemMorph := self itemFromPoint: evt position)
+ 		ifNil: [^ self].
- 	itemMorph := scroller submorphs
- 		detect: [:any | any highlightedForMouseDown]
- 		ifNone: [^ self].
  
  	"Prepare visuals."
  	itemMorph highlightedForMouseDown: false.
  	self setSelectedMorph: itemMorph.
  
  	[ "Initiate drag."
  		(self model perform: self dragItemSelector with: itemMorph withoutListWrapper) ifNotNil: [:passenger | | ddm |
  			ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self.
  			ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: itemMorph withoutListWrapper]).
  			ddm updateFromUserInputEvent: evt.
  			self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm].
  			evt hand grabMorph: ddm].
  	] ensure: [
  		Cursor normal show.
  		evt hand releaseMouseFocus: self].!