diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Tk/LabEntry.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/Tk/LabEntry.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Tk/LabEntry.pm b/Master/tlpkg/tlperl.straw/lib/Tk/LabEntry.pm new file mode 100755 index 00000000000..64cb392fa8c --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/Tk/LabEntry.pm @@ -0,0 +1,31 @@ +# Copyright (c) 1995-2003 Nick Ing-Simmons. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package Tk::LabEntry; + +use vars qw($VERSION); +$VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/LabEntry.pm#6 $ + +use base qw(Tk::Frame); +use Tk::widgets qw(Frame Label Entry); + +Construct Tk::Widget 'LabEntry'; + +sub Populate +{ + require Tk::Entry; + # LabeledEntry constructor. + # + my($cw, $args) = @_; + $cw->SUPER::Populate($args); + # Advertised subwidgets: entry. + my $e = $cw->Entry(); + $e->pack('-expand' => 1, '-fill' => 'both'); + $cw->Advertise('entry' => $e ); + $cw->ConfigSpecs(DEFAULT => [$e]); + $cw->Delegates(DEFAULT => $e); + $cw->AddScrollbars($e) if (exists $args->{-scrollbars}); +} + +1; |