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

commits at source.squeak.org commits at source.squeak.org
Tue Mar 31 16:27:38 UTC 2015


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 at 0).
+ 		#topRight -> (-3 at 0).
+ 		#bottomLeft -> (1@ -1).
+ 		#bottomRight -> (-3 @ -3)}) at: self orientation!



More information about the Packages mailing list