sub OnWithdraw{
    my $window = shift;
    my $text   = $window->Subwidget('text');
    $text->delete('0.0', 'end');
    $window->withdraw;
    return;
}


#~ 	$mw->protocol(WM_DELETE_WINDOW => [ $mw => 'withdraw' ]);
	$mw->protocol(WM_DELETE_WINDOW => [ $mw => 'OnWithdraw' ]);