my $tList = $mw->TList->pack(-expand => 1, -fill => 'both);
my $button = $tList->Button(-text => 'irgendwas', -command => ... } );