my $f = $mw->Frame->pack(-side => 'top', -fill => 'x');
my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side => 'bottom', -fill => 'both', -expand => 1);