NAME

Tk::RadiobuttonGroup - widget displays and manages a group of related radiobuttons

SYNOPSIS

        use Tk::CheckbuttonGroup;

        my($top) = MainWindow->new();
        my $selected = 'two';
        my $radiobuttongroup = $top->RadiobuttonGroup (
                -list => [qw( one two three four five )],
                -orientation => 'vertical',
                -variable => \$selected,
                -command => sub {
                        print @selected, "\n";
                }
        );

WIDGET-SPECIFIC OPTIONS

Name: list

Class: List

Switch: -list

The names for the radiobuttons to be contained in this widget. If given as a list reference, the same value is used for the radiobutton's label and its value. If given as a hash reference, the keys are used as each radiobutton's label, and the values as their values. If given a list reference whose first element is a list reference, the sublist will be treated as a set of ordered key value pairs which is then treated as an ordered hash.

Name: orientation

Class: Orientation

Switch: -orientation

May be 'vertical' or 'horizontal'. Specifies how the radiobuttones are stacked.

Name: variable

Class: Variable

Switch: -variable

A reference to a scalar, whose value is that of the selected radiobutton, and is updated as the user interacts with the widget. This variable is not watched, and so state of the widget is only updated by changing the -variable option.

Name: command

Class: Command

Switch: -command

Specifies a perl/Tk callback to associate with all of the radiobuttons.

DESCRIPTION

Displays a set of related radiobuttones with a frame in vertical or horizontal orientation.

All radiobuttones are advertised with the names given in the -list option.

Any additional options which are given to this widget are applied to all of the radiobuttons it manages.

BUGS

The reference passed in the -variable option is not watched, and so the radiobuttons will not automatically update themselves if the scalar given in that reference changes.

AUTHOR

By: Joseph Annino <jannino@jannino.com> http://www.jannino.com

Copyright (c) 2002 American Museum of Natural History. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.