$mw->Text->pack(-side => 'top', -anchor => 'n', -expand => 1, -fill => 'both');