# Tcl inclusion for GUI finished here; you can work with widgets here like:
my $lab = $mw->interp->widget('.status');
$lab->configure(-text=>'new text here...');

##</code><code>##

my $mw = $int->widget( ... ,'MainWindow');
$mw->Button(-text => 'freedom' )->pack;