my $dialog = $mw->Toplevel;
$dialog->overrideredirect(1);

##</code><code>##

if ($dialog->parent->toplevel->viewable){$dialog->transient($dialog->parent);}