blob: 277981329b0e51dae6ba95578a01322f8d0a6720 (
plain)
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 72 "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;
|