diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al b/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al deleted file mode 100644 index 0cfa8631c24..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Frame/labelPack.al +++ /dev/null @@ -1,50 +0,0 @@ -# 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 121 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\labelPack.al)" -sub labelPack -{ - my ($cw,$val) = @_; - my $w = $cw->Subwidget('label'); - my @result = (); - if (@_ > 1) - { - if (defined($w) && !defined($val)) - { - $w->packForget; - } - elsif (defined($val) && !defined ($w)) - { - require Tk::Label; - $w = Tk::Label->new($cw,-textvariable => $cw->labelVariable); - $cw->Advertise('label' => $w); - $cw->ConfigDelegate('label',qw(-text -textvariable)); - } - if (defined($val) && defined($w)) - { - my %pack = @$val; - unless (exists $pack{-side}) - { - $pack{-side} = 'top' unless (exists $pack{-side}); - } - unless (exists $pack{-fill}) - { - $pack{-fill} = 'x' if ($pack{-side} =~ /(top|bottom)/); - $pack{-fill} = 'y' if ($pack{-side} =~ /(left|right)/); - } - unless (exists($pack{'-before'}) || exists($pack{'-after'})) - { - my $before = ($cw->packSlaves)[0]; - $pack{'-before'} = $before if (defined $before); - } - $w->pack(%pack); - } - } - @result = $w->packInfo if (defined $w); - return (wantarray) ? @result : \@result; -} - -# end of Tk::Frame::labelPack -1; |