# 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 159 "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;