Select Code to Download

$text->delete('0.0', 'end');

$mw->withdraw;

...

$mw->OnDestroy([ 'DecrementReferenceCount' => $error_window ]);

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