# NOTE: Derived from blib/lib/Tk/Wm.pm.
# Changes made here will be lost when autosplit is run again.
#line 72 "blib/lib/Tk/Wm.pm (autosplit into blib/lib/auto/Tk/Wm/Post.al)"
$w->positionfrom('user');
# $w->geometry("+$X+$Y");
$w->MoveToplevelWindow($X,$Y);