The Trunk: Morphic-mt.869.mcz

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

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

Name: Morphic-mt.869
Author: mt
Time: 14 April 2015, 9:28:12.825 am
UUID: 4af45ac7-0ca2-3940-bdd5-205c009a434c
Ancestors: Morphic-mt.868

Fixed resize-after-drop to work only for the initial drop.

=============== Diff against Morphic-mt.868 ===============

Item was changed:
  ----- Method: SystemWindow>>justDroppedInto:event: (in category 'geometry') -----
  justDroppedInto: aMorph event: anEvent
 
+ (ToolBuilder openToolsAttachedToMouseCursor and: (self hasProperty: #initialDrop))
+ ifTrue: [
+ self removeProperty: #initialDrop.
+ (self submorphs detect: [:m | m isKindOf: BottomRightGripMorph] ifNone: [])
+ ifNotNil: [:grip |
+ grip referencePoint: anEvent position.
+ anEvent hand newMouseFocus: grip]].
- 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!