[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / auto / Tk / Wm / Post.al

# 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;
Commit	Line	Data
86530b38 AT	1	# NOTE: Derived from blib/lib/Tk/Wm.pm.
	2	# Changes made here will be lost when autosplit is run again.
	3	# See AutoSplit.pm.
	4	package Tk::Wm;
	5
	6	#line 72 "blib/lib/Tk/Wm.pm (autosplit into blib/lib/auto/Tk/Wm/Post.al)"
	7	sub Post
	8	{
	9	my ($w,$X,$Y) = @_;
	10	$X = int($X);
	11	$Y = int($Y);
	12	$w->positionfrom('user');
	13	# $w->geometry("+$X+$Y");
	14	$w->MoveToplevelWindow($X,$Y);
	15	$w->deiconify;
	16	$w->raise;
	17	}
	18
	19	# end of Tk::Wm::Post
	20	1;