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