The Trunk: Morphic-mt.1098.mcz

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

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

Name: Morphic-mt.1098
Author: mt
Time: 1 April 2016, 11:28:33.972613 am
UUID: 96501329-3432-4823-af23-a7a2f2ea330b
Ancestors: Morphic-mt.1097

Adds possibility to specify pop-up position hint for balloon morphs.

Use it to show some help programmatically like this:

someWidget showBalloon: 'Now click here.' at: someWidget topCenter.

=============== Diff against Morphic-mt.1097 ===============

Item was added:
+ ----- Method: BalloonMorph>>popUpAt: (in category 'initialization') -----
+ popUpAt: point
+
+ self position: point.
+ self popUp.!

Item was added:
+ ----- Method: Morph>>showBalloon:at: (in category 'halos and balloon help') -----
+ showBalloon: msgString at: point
+ "Pop up a balloon containing the given string."
+
+ self isInWorld ifFalse: [^ self].
+ (msgString isNil or: [msgString isEmpty]) ifTrue: [^ self].
+
+ (self balloonMorphClass
+ string: msgString
+ for: self balloonHelpAligner)
+ popUpAt: point.!

Item was added:
+ ----- Method: NewBalloonMorph>>popUpAt: (in category 'initialization') -----
+ popUpAt: point
+ "Do not remove other balloon helps."
+
+ | w h |
+ self balloonOwner ifNil: [^ self].
+ self balloonOwner isInWorld ifFalse: [^ self].
+
+ w := self balloonOwner world.
+ h := w activeHand.
+
+ #(bottomLeft topLeft bottomRight topRight) detect: [:nextOrientation |
+ | pointWithOffset |
+ self orientation: nextOrientation.
+ pointWithOffset := point + self tailOffset.
+ self move: pointWithOffset.
+ self bounds: (self bounds translatedToBeWithin: w bounds).
+ (self bounds perform: self orientation) = pointWithOffset] ifNone: ["Keep last try."].
+
+ w activeHand addBalloonHelp: self.
+ self openInWorld.!