my $tx = $mw->Text()->pack(-fill => 'both', -expand => 1,);
$tx->insert('end', 'bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla');