CD Actual Thematic 7: Programming/CDAT7.iso/Share/Editores/Perl5/perl/lib/site/auto/Tk/Wm/Post.al

Text File | 1997-08-10 | 225 b | 15 lines

# NOTE: Derived from blib\lib\Tk\Wm.pm.  Changes made here will be lost.
package Tk::Wm;

sub Post
{
 my ($w,$X,$Y) = @_;
 $X = int($X);
 $Y = int($Y);
 $w->geometry("+$X+$Y");
 $w->deiconify;
 $w->raise;
}

1;