[Pkg] 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 Packages
mailing list