[squeak-dev] The Trunk: Morphic-mt.1105.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Apr 11 08:20:05 UTC 2016


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

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

Name: Morphic-mt.1105
Author: mt
Time: 11 April 2016, 10:19:30.423264 am
UUID: ea97f6eb-ebd3-f34a-b7ea-f6b0fb77b730
Ancestors: Morphic-cmm.1104

Fixes deferred balloon tips that showed up at the hand but the hand has already moved above another morph.

=============== Diff against Morphic-cmm.1104 ===============

Item was changed:
  ----- 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.
+ 	
+ 	self hasTail: true.
  		
  	#(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.!

Item was changed:
  ----- Method: NewBalloonMorph>>popUpFor:hand: (in category 'initialization') -----
  popUpFor: aMorph hand: aHand
+ 	"Pop up the receiver as balloon help for the given hand. Ignore if the hand does not touch the morph."
- 	"Pop up the receiver as balloon help for the given hand"
  
+ 	(aMorph boundsInWorld containsPoint: aHand position)
+ 		ifFalse: [^ self "Ignore"].
+ 		
  	self balloonOwner: aMorph.
  	self popUpForHand: aHand.!



More information about the Squeak-dev mailing list