'From etoys3.0 of 24 February 2008 [latest update: #2107] on 28 August 2008 at 11:22:29 am'! "Change Set: pangoInitInHaloName-yo Date: 28 August 2008 Author: Yoshiki Ohshima add the initialization of usePango for NameStringInHalo."! !HaloMorph methodsFor: 'private' stamp: 'yo 8/28/2008 11:21'! 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]) ifNil: [^ self]. nameMorph _ NameStringInHalo contents: aString font: Preferences standardEToysFont. nameMorph color: Color black. 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! ! !StringMorph methodsFor: 'initialization' stamp: 'yo 8/28/2008 11:06'! initWithContents: aString font: aFont emphasis: emphasisCode super initialize. font _ aFont. emphasis _ emphasisCode. hasFocus _ false. usePango := Preferences usePangoRenderer. self contents: aString! !