my $x = (($mw->x)+200); my $y = (($mw->y))+200; $dialog->geometry("+$x+$y"); if ($dialog->parent->toplevel->viewable){$dialog->transient($dialog->parent);}