Listing 2. Fetching the contents of an aliased widget.

...
set introWidget $::widget(IntroText)
set text [$introWidget get 1.0 end]
...