Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.251.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.251 Author: mt Time: 26 November 2019, 5:31:52.470764 pm UUID: 668e9ecf-898c-a64f-b8a3-da854a20b0c1 Ancestors: ToolBuilder-Morphic-mt.250
Complements Morphic-mt.1595.
=============== Diff against ToolBuilder-Morphic-mt.250 ===============
Item was changed: ----- Method: PluggableListMorphPlus>>startDrag: (in category 'drag and drop') ----- startDrag: evt
| item itemMorph modelIndex | dragItemSelector ifNil:[^self]. evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self].
"Ensure selection to save additional click." (self modelIndexFor: (self rowAtLocation: evt position)) in: [:evtIndex | self selectionIndex = evtIndex ifFalse: [self changeModelSelection: evtIndex]].
item := self selection ifNil: [^ self]. itemMorph := StringMorph contents: item asStringOrText. modelIndex := self modelIndexFor: self selectionIndex.
[ "Initiate drag." (self model perform: dragItemSelector with: modelIndex) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self dragTypeSelector ifNotNil: [:s | self model perform: s with: modelIndex]). ddm updateFromUserInputEvent: evt. self dragStartedSelector ifNotNil: [:s | self model perform: s with: itemMorph with: ddm]. + evt hand grabMorph: ddm. + self mouseEnterDragging: evt "Enable internal move"]. + ] ensure: [Cursor normal show]! - evt hand grabMorph: ddm]. - ] ensure: [ - Cursor normal show. - evt hand releaseMouseFocus: self]!