Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1595.mcz
==================== Summary ====================
Name: Morphic-mt.1595 Author: mt Time: 26 November 2019, 5:30:59.627764 pm UUID: b706474f-6b3b-b949-a8c4-dab4da0cc2f3 Ancestors: Morphic-mt.1594
Fixes internal drag-drop-move in pluggable lists. Thanks to Jakob (jr)!
=============== Diff against Morphic-mt.1594 ===============
Item was changed: + ----- Method: PluggableListMorph>>mouseLeaveDragging: (in category 'events') ----- - ----- Method: PluggableListMorph>>mouseLeaveDragging: (in category 'event handling') ----- mouseLeaveDragging: anEvent
self hoverRow: nil. + anEvent hand releaseMouseFocus: self. (self dropEnabled and:[anEvent hand hasSubmorphs]) ifFalse: ["no d&d" ^ super mouseLeaveDragging: anEvent]. self resetPotentialDropRow. - anEvent hand releaseMouseFocus: self. "above is ugly but necessary for now" !
Item was changed: ----- Method: PluggableListMorph>>startDrag: (in category 'drag and drop') ----- startDrag: evt
| item itemMorph | evt hand hasSubmorphs ifTrue: [^ self]. self model okToChange ifFalse: [^ self].
"Ensure selection to save additional click." (self rowAtLocation: evt position) in: [:clickedRow | self selectionIndex = clickedRow ifFalse: [self changeModelSelection: (self modelIndexFor: clickedRow)]].
item := self selection ifNil: [^ self]. itemMorph := StringMorph contents: item asStringOrText. [ "Initiate drag." (self model dragPassengerFor: itemMorph inMorph: self) ifNotNil: [:passenger | | ddm | ddm := (self valueOfProperty: #dragTransferClass ifAbsent: [TransferMorph]) withPassenger: passenger from: self. ddm dragTransferType: (self model dragTransferTypeForMorph: self). ddm updateFromUserInputEvent: evt. self model dragStartedFor: itemMorph transferMorph: 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].!
packages@lists.squeakfoundation.org