Select Code to Download

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

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