my $tw= $mw->Text()->pack(-anchor=>'w', -fill=>'both', -expand=>'1');