On Wed, Dec 17, 2008 at 1:47 PM, Stéphane Rollandin
<lecteur at zogotounga.net> wrote:
> (Workspace new contents:
>  ((Character value: 1) asText addAttribute:
>    (TextAnchor new anchoredMorph: Morph new) from: 1 to: 1))
> openLabel: 'test'

Try using something like that:

	aText
		addAttribute: (TextDoIt evalString: codeToExecute)
		from: before
		to: after.
						

-- 
Damien Cassou
http://damiencassou.seasidehosting.st