[Pharo-users] How to display a text with a really large font?

[stepharo]

Hi

I read the comment of TextMorph
| font1 font2 t1 t2 tMorph|
tMorph := TextMorph new.
font1 := (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' 
size: 22)).
font2 := (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' 
size: 11)).
t1 := 'this is font1' asText addAttribute: font1.
t2 := ' and this is font2' asText addAttribute: font2.
tMorph contents: (t1,t2).
tMorph openInHand.

but I could not get it to work.

Now I will ask google to see if I can find an example.

Stef