[Pkg] The Trunk: Morphic-mt.1098.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Apr 1 09:29:04 UTC 2016


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.!



More information about the Packages mailing list