Master/tlpkg/tlperl/lib/auto/Tk/Wm/Post.al


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# NOTE: Derived from blib\lib\Tk\Wm.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Wm;

#line 75 "blib\lib\Tk\Wm.pm (autosplit into blib\lib\auto\Tk\Wm\Post.al)"
sub Post
{
 my ($w,$X,$Y) = @_;
 $X = int($X);
 $Y = int($Y);
 $w->positionfrom('user');
 $w->geometry("+$X+$Y");
 # $w->MoveToplevelWindow($X,$Y);
 $w->deiconify;
 $w->raise;
}

# end of Tk::Wm::Post
1;