The Trunk: ToolBuilder-Morphic-mt.126.mcz

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

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

Name: ToolBuilder-Morphic-mt.126
Author: mt
Time: 14 April 2015, 9:29:26.397 am
UUID: 76b36a27-8583-cc47-a8eb-52393ca59710
Ancestors: ToolBuilder-Morphic-mt.125

Fixed resize-after-drop to work only for the initial drop. Added a flag for #initialDrop to the affected tool window.

=============== Diff against ToolBuilder-Morphic-mt.125 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>open: (in category 'opening') -----
  open: anObject
  "Build and open the object. Answer the widget opened."
  | morph |
  anObject isMorph
  ifTrue:[morph := anObject]
  ifFalse:[morph := self build: anObject].
  (morph isKindOf: MenuMorph)
  ifTrue:[morph popUpInWorld: World].
  (morph isKindOf: SystemWindow)
  ifFalse:[morph openInWorld]
  ifTrue:[
  morph := morph openInWorldExtent: morph extent.
  (self class openToolsAttachedToMouseCursor
  and: [self currentEvent isMouse  and: [self currentEvent isMouseUp]])
  ifTrue: [
+ morph setProperty: #initialDrop toValue: true.
  morph hasDropShadow: false.
  self currentHand attachMorph: morph]].
  ^morph!