[squeak-dev] The Inbox: Morphic-tcj.2000.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jun 6 06:27:20 UTC 2022
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/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]
!
More information about the Squeak-dev
mailing list
|