Text with Link

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