my $botfrm = $MW->Frame->pack(-fill => 'x', -expand => 1);
my $txt = $botfrm -> Scrolled('Text',-width=>57,-height=>5,-scrollbars =>'o') -> pack ();