The Trunk: Morphic-mt.797.mcz

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

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

Name: Morphic-mt.797
Author: mt
Time: 31 March 2015, 6:27:03.383 pm
UUID: 62e69ad7-a533-4248-937f-5b101f24dfc9
Ancestors: Morphic-mt.796

Fixed problem with disappearing new-style balloon morph in certain cases.

=============== Diff against Morphic-mt.796 ===============

Item was changed:
  ----- Method: NewBalloonMorph>>popUpAt:forHand: (in category 'initialization') -----
  popUpAt: point forHand: aHand
  "Pop up the receiver as balloon help for the given hand"
 
+ #(bottomLeft topLeft bottomRight topRight) detect: [:nextOrientation |
+ | pointWithOffset |
- #(bottomLeft bottomRight topLeft topRight) detect: [:nextOrientation |
  self orientation: nextOrientation.
+ pointWithOffset := point + self tailOffset.
+ self move: pointWithOffset.
- self move: point.
  self bounds: (self bounds translatedToBeWithin: aHand world bounds).
+ (self bounds perform: self orientation) = pointWithOffset] ifNone: ["Keep last try."].
- (self bounds perform: self orientation) = point] ifNone: ["Keep last try."].
 
  aHand world addMorphFront: self.
  aHand balloonHelp: self.!

Item was added:
+ ----- Method: NewBalloonMorph>>tailOffset (in category 'geometry') -----
+ tailOffset
+
+ ^ (Dictionary newFrom: {
+ #topLeft -> (5@0).
+ #topRight -> (-3@0).
+ #bottomLeft -> (1@ -1).
+ #bottomRight -> (-3 @ -3)}) at: self orientation!