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