Don't know for sure what the maximum StrikeFont size, but for FT - Fonts you can use any (?) size: (of course, the FT/TTF-font should be in the system/image). | font1 font2 t1 t2 tMorph| tMorph := TextMorph new. font1 := (TextFontReference toFont: (StrikeFont familyName: 'Bitmap DejaVu Sans' size: 38)). font2 := (TextFontReference toFont: (LogicalFont familyName: 'Source Sans Pro' pointSize: 81)). t1 := 'this is font1' asText addAttribute: font1. t2 := ' and this is font2' asText addAttribute: font2. tMorph contents: (t1,t2). tMorph openInHand. 2015-05-04 13:23 GMT+02:00 stepharo <stepharo@free.fr>:
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