Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Tk/Frame.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Tk::Frame; | |
5 | ||
6 | #line 159 "blib/lib/Tk/Frame.pm (autosplit into blib/lib/auto/Tk/Frame/labelVariable.al)" | |
7 | sub labelVariable | |
8 | { | |
9 | my ($cw,$val) = @_; | |
10 | my $var = \$cw->{Configure}{'-labelVariable'}; | |
11 | if (@_ > 1 && defined $val) | |
12 | { | |
13 | $$var = $val; | |
14 | $$val = '' unless (defined $$val); | |
15 | my $w = $cw->Subwidget('label'); | |
16 | unless (defined $w) | |
17 | { | |
18 | $cw->labelPack([]); | |
19 | $w = $cw->Subwidget('label'); | |
20 | } | |
21 | $w->configure(-textvariable => $val); | |
22 | } | |
23 | return $$var; | |
24 | } | |
25 | ||
26 | # end of Tk::Frame::labelVariable | |
27 | 1; |