my $text = $mw->Text()->pack();
$text->delete('0.0', 'end'); # delete all
$text->insert('0.0', $value); # insert $value