diff options
Diffstat (limited to 'Master/tlpkg/installer/perllib/auto/Tk/Frame/labelVariable.al')
-rw-r--r-- | Master/tlpkg/installer/perllib/auto/Tk/Frame/labelVariable.al | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/perllib/auto/Tk/Frame/labelVariable.al b/Master/tlpkg/installer/perllib/auto/Tk/Frame/labelVariable.al new file mode 100644 index 00000000000..ca60cff1288 --- /dev/null +++ b/Master/tlpkg/installer/perllib/auto/Tk/Frame/labelVariable.al @@ -0,0 +1,27 @@ +# NOTE: Derived from blib\lib\Tk\Frame.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk::Frame; + +#line 163 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelVariable.al)" +sub labelVariable +{ + my ($cw,$val) = @_; + my $var = \$cw->{Configure}{'-labelVariable'}; + if (@_ > 1 && defined $val) + { + $$var = $val; + $$val = '' unless (defined $$val); + my $w = $cw->Subwidget('label'); + unless (defined $w) + { + $cw->labelPack([]); + $w = $cw->Subwidget('label'); + } + $w->configure(-textvariable => $val); + } + return $$var; +} + +# end of Tk::Frame::labelVariable +1; |