summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/LabEnLabRad.pm
blob: c49ef0b18814b38a5dededdb8cc321b26b9c9472 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
package Tk::LabeledEntryLabeledRadiobutton;
require Tk::Frame;

use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/demos/demos/LabEnLabRad.pm#4 $

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;