# adjust to not cross screen borders
    if ($X < 0) { $X = 0 }

##</code><code>##

    $w->geometry("+$X+$Y");
    # $w->MoveToplevelWindow($X,$Y);