The Trunk: Morphic-mt.868.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.868.mcz

==================== Summary ====================

Name: Morphic-mt.868
Author: mt
Time: 14 April 2015, 8:51:16.376 am
UUID: e03a8bed-de5d-7847-97b3-d38b5c1b1339
Ancestors: Morphic-mt.867

Extended the "openToolsAttachedToMouseCursor" preference to allow resizing-after-dropping directly if you keep the mouse button pressed and move it.

Thanks Bert for the idea! :-)

Note: With fast-dragging enabled, accidential resize might shrink the window unexpectedly because we cannot change mouse position programmatically.

=============== Diff against Morphic-mt.867 ===============

Item was added:
+ ----- Method: AbstractResizerMorph>>referencePoint: (in category 'as yet unclassified') -----
+ referencePoint: aPoint
+
+ lastMouse := aPoint.!

Item was changed:
  ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') -----
  justDroppedInto: aMorph event: anEvent
 
+ ToolBuilder openToolsAttachedToMouseCursor ifTrue: [
+ (self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: [])
+ ifNotNil: [:grip |
+ grip referencePoint: anEvent position.
+ anEvent hand newMouseFocus: grip]].
+
  self hasDropShadow: (self isActive and: [Preferences menuAppearance3d]).
 
  isCollapsed
  ifTrue: [self position: ((self position max: 0@0) grid: 8@8).
  collapsedFrame := self bounds]
  ifFalse: [fullFrame := self bounds.
  TopWindow ~~ self ifTrue: [self activate]].
  ^super justDroppedInto: aMorph event: anEvent!