'From Squeakland 3.8.5976 of 19 August 2004 [latest update: #243] on 25 August 2004 at 12:04:11 pm'! !HaloMorph methodsFor: 'private' stamp: 'mir 8/24/2004 12:35'! addNameBeneath: outerRectangle string: aString "Add a name display centered beneath the bottom of the outer rectangle. Return the handle." | nameMorph namePosition w | w _ self world ifNil:[target world]. nameMorph _ NameStringInHalo contents: aString font: Preferences standardHaloLabelFont. nameMorph color: Color magenta. nameMorph useStringFormat; target: innerTarget; putSelector: #tryToRenameTo:. namePosition _ outerRectangle bottomCenter - ((nameMorph width // 2) @ (self handleSize negated // 2 - 1)). nameMorph position: (namePosition min: w viewBox bottomRight - nameMorph extent y + 2). nameMorph balloonTextSelector: #objectNameInHalo. self addMorph: nameMorph. ^ nameMorph! ! !Preferences class methodsFor: 'fonts' stamp: 'mir 8/24/2004 12:34'! setHaloLabelFontTo: aFont "change the font used in eToys environment" Parameters at: #haloLabelFont put: aFont! ! !Preferences class methodsFor: 'fonts' stamp: 'mir 8/24/2004 12:34'! standardHaloLabelFont "Answer the font to be used in the eToys environment" ^ Parameters at: #haloLabelFont ifAbsent: [Parameters at: #haloLabelFont put: TextStyle defaultFont]! !