Help with textmorph
ducasse
ducasse at iam.unibe.ch
Fri Feb 20 21:56:07 UTC 2004
Finally you are right this is much easier to use Text
| text size appendText|
text := Text string: 'This is a text' attributes: { (TextColor red) .
(TextFontReference toFont:
((TextStyle named: #Accuat) fontNamed: 'Accuat18'))}.
size := text size.
appendText := 'stephane will survive'.
text addAttribute: (TextFontReference toFont:
((TextStyle named: #Accuve) fontNamed: 'Accuve12')) from: size + 1 to:
size + appendText size.
text append: appendText.
^ text
I shoudl really write a test so that others do not spend hours on this
like me.
More information about the Squeak-dev
mailing list
|