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 151 "blib/lib/Tk/Wm.pm (autosplit into blib/lib/auto/Tk/Wm/iconposition.al)" | |
7 | sub iconposition | |
8 | { | |
9 | my $w = shift; | |
10 | if (@_ == 1) | |
11 | { | |
12 | return $w->wm('iconposition',$1,$2) if $_[0] =~ /^(\d+),(\d+)$/; | |
13 | if ($_[0] =~ /^([+-])(\d+)([+-])(\d+)$/) | |
14 | { | |
15 | my $x = ($1 eq '-') ? $w->screenwidth-$2 : $2; | |
16 | my $y = ($3 eq '-') ? $w->screenheight-$4 : $4; | |
17 | return $w->wm('iconposition',$x,$y); | |
18 | } | |
19 | } | |
20 | $w->wm('iconposition',@_); | |
21 | } | |
22 | ||
23 | 1; | |
24 | # end of Tk::Wm::iconposition |