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