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