[Newbies] Text with Link

[Hilaire Fernandes]

How can I append a link to a text in a text morph?

I am trying without success:

| t m |
m := TextMorphPlus new openInWorld.
t := Text
	string: 'hello '
	attribute: (TextColor red).
t append: (Text
	string: ' TOTO'
	attribute: (TextLink scanFrom: (ReadStream on: 'LMorph new;'))).


But really I don't understand the way to use TextLink

Hilaire