Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / demos / LabEnLabRad.pm

package Tk::LabeledEntryLabeledRadiobutton;
require Tk::Frame;

use vars qw($VERSION);
$VERSION = '3.006'; # $Id: //depot/Tk8/demos/demos/LabEnLabRad.pm#6 $

use base  qw(Tk::Frame);

require Tk::LabEntry;
require Tk::LabRadio;

Construct Tk::Widget 'LabeledEntryLabeledRadiobutton';

sub Populate
{

   # LabeledEntryLabeledRadiobutton(s) constructor.
   #
   # Advertised subwidgets:  labeled_entry, labeled_radiobutton.

   my($cw, $args) = @_;

   my $e = $cw->Component(LabEntry => 'labeled_entry');
   $e->pack(-side => 'left', -expand => 1, -fill => 'both');

   my $r = $cw->Component(LabRadiobutton => 'labeled_radiobutton',
                          -radiobuttons   => delete $args->{'-radiobuttons'}
                         );
   $r->pack(-side => 'left', -expand => 1, -fill => 'both');
   $cw->ConfigSpecs(-entry_label    => [ Tk::Configure->new($e,'-label'), undef, undef, 'Entry' ],
                    -radio_label    => [ Tk::Configure->new($r,'-label'), undef, undef, Choose ],
                    -entry_variable => [ Tk::Configure->new($e,'-textvariable'), undef, undef, \$cw->{Config}{-text} ],
                    -radio_variable => [ Tk::Configure->new($r,'-variable'), undef, undef, undef ],
                    -indicatoron    => [ 'labeled_radiobutton' , undef, undef, undef ],
                    DEFAULT         => [ ['labeled_entry','labeled_radiobutton']],
                   );
   $cw->Delegates(DEFAULT => 'labeled_entry');

} # end LabeledEntryLabeledRadiobutton(s) constructor

1;