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!
squeak-dev@lists.squeakfoundation.org