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].!
packages@lists.squeakfoundation.org