Christoph Thiede uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-tcj.2000.mcz
==================== Summary ====================
Name: Morphic-tcj.2000 Author: tcj Time: 5 June 2022, 11:27:16.56143 pm UUID: c9b2a85f-cde3-453b-9cb9-898c3420bc07 Ancestors: Morphic-mt.1999
Optimize dragging into SystemWindows by not performing a complete 'activate' on mouse enter (which includes waking up the model and redrawing all submorphs & text). Also, fix typo in another method comment.
=============== Diff against Morphic-mt.1999 ===============
Item was changed: ----- Method: SystemWindow>>mouseEnterDragging: (in category 'events') ----- mouseEnterDragging: evt "unlock children for drop operations" self flag: #performance. "mt: There may be no need to change appearance if no widget wants the drop." self isActive ifTrue: [self lookFocused]. (self isActive not and: [evt hand hasSubmorphs]) ifTrue: [ + self submorphsDo: [:morph | morph unlock]. "unlock contents for drop" - self activate. "unlock contents for drop" evt hand addMouseListener: self. "for drop completion on submorph" ].!
Item was changed: ----- Method: SystemWindow>>startDragFromLabel: (in category 'events') ----- startDragFromLabel: evt + "When label events are active, we need to pass dragging to the window explicitly. - "When label events are active, we need to pass dragging to the window explicitely The window only recognizes a drag with an offset of more than 3 pixels" self isSticky ifTrue: [^ self]. self fastFramingOn ifTrue: [self doFastFrameDrag: evt cursorPoint] ifFalse: [ self hasDropShadow: false. evt hand grabMorph: self topRendererOrSelf] !