On Sat, Dec 22, 2012 at 2:57 AM, Igor Stasenko <siguctua@gmail.com> wrote:

StringMorph>>boundsForBalloon
� � � � "Some morphs have bounds that are way too big. �This is a contorted
way of making things work okay in PluggableListMorphs, whose list
elements historically have huge widths"

� � � � | ownerOwner |
� � � � ^ ((owner notNil and: [(ownerOwner := owner owner) notNil]) and:
� � � � � � � � � � � � [ownerOwner isKindOf: PluggableListMorph])
� � � � � � � � ifTrue:
� � � � � � � � � � � � [self boundsInWorld intersect: ownerOwner boundsInWorld]
� � � � � � � � ifFalse:
� � � � � � � � � � � � [super boundsForBalloon]

--
Best regards,
Igor Stasenko.