Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2102.mcz
==================== Summary ====================
Name: Morphic-mt.2102 Author: mt Time: 5 April 2023, 11:49:24.832931 am UUID: 7e97cbf7-c375-1c4f-8544-e2787c3adc4c Ancestors: Morphic-mt.2101
For a possible drop into a tree widget, expand the hovered item after 1000 ms if possible so that users can select a sub-tree item during the drag operation.
=============== Diff against Morphic-mt.2101 ===============
Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseEnterDragging: (in category 'event handling') ----- mouseEnterDragging: evt | aMorph | (evt hand hasSubmorphs and:[self dropEnabled]) ifFalse: ["no d&d" ^super mouseEnterDragging: evt]. (self wantsDroppedMorph: evt hand firstSubmorph event: evt ) + ifTrue: [ + self removeAlarm: #toggleExpandedState:event:. - ifTrue:[ aMorph := self itemFromPoint: evt position. + aMorph ifNotNil: [ + self potentialDropMorph: aMorph. + (aMorph isExpanded not and: [aMorph canExpand]) ifTrue: [ + self + addAlarm: #toggleExpandedState:event: + withArguments: {aMorph. evt} + after: 1000]]. - aMorph ifNotNil:[self potentialDropMorph: aMorph]. evt hand newMouseFocus: self. "above is ugly but necessary for now" ].!
Item was changed: ----- Method: SimpleHierarchicalListMorph>>toggleExpandedState:event: (in category 'events') ----- + toggleExpandedState: aMorph event: aMouseEvent + "Mouse navigation. Thus, avoid changing scroll position. See #toggleExpandedState: for keyboard navigation." - toggleExpandedState: aMorph event: event
aMorph toggleExpandedState. self adjustSubmorphPositions. !