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 / widget_lib / radio.pl

# radio.pl

use vars qw/$TOP/;

sub radio {

    # Create a top-level window that displays a bunch of radio buttons.

    my($demo) = @_;
    $TOP = $MW->WidgetDemo(
        -name     => $demo,
        -text     => ['Two groups of radiobuttons are displayed below.  If you click on a button then the button will become selected exclusively among all the buttons in its group.  A Perl variable is associated with each group to indicate which of the group\'s buttons is selected.  Click the "See Variables" button to see the current values of the variables.', qw/-wraplength 5i/],
        -title    => 'Radiobutton Demonstration',
        -iconname => 'radio',
    );

    my $var = $TOP->Button(
        -text    => 'See Variables',
        -command => [\&see_vars, $TOP, [
                                      ['point size', \$POINT_SIZE],
                                      ['color',      \$COLOR],
				      ]
		     ],
    );
    $var->pack(qw/-side bottom -expand 1/);

    my @pl = qw/-side left -expand 1 -padx .5c -pady .5c/;
    my $left = $TOP->Frame->pack(@pl);
    my $right = $TOP->Frame->pack(@pl);

    @pl = qw/-side top -pady 2 -anchor w/;
    foreach my $p (10, 12, 18, 24) {
	$left->Radiobutton(
            -text     => "Point Size $p",
            -variable => \$POINT_SIZE,
            -relief   => 'flat',
            -value    => $p,
        )->pack(@pl);
    }

    foreach my $c (qw/Red Green Blue Yellow Orange Purple/) {
	$right->Radiobutton(
            -text     => $c,
            -variable => \$COLOR,
            -relief   => 'flat',
            -value    => lc($c),
        )->pack(@pl);
    }

} # end radio

1;