# Copyright (c) 1995-1999 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.
$VERSION = '3.011'; # $Id: //depot/Tk8/Tk/LabEntry.pm#11 $
use Tk
::widgets
qw(Frame Label Entry);
Construct Tk
::Widget
'LabEntry';
# LabeledEntry constructor.
$cw->SUPER::Populate
($args);
# Advertised subwidgets: 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
});