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

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

Name: ToolBuilder-Morphic-mt.328
Author: mt
Time: 26 January 2023, 4:12:17.889707 pm
UUID: 1f707e6f-a9bf-c344-874a-5227b5d1f129
Ancestors: ToolBuilder-Morphic-mt.327

Avoid use of (recently) deprecated method.

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

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 := scroller submorphs
  		detect: [:any | any highlightedForMouseDown]
  		ifNone: [^ self].
  
  	"Prepare visuals."
+ 	itemMorph highlightedForMouseDown: false.
- 	itemMorph highlightForMouseDown: 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].!