Tk::Optionmenu - Let the user select one of some predefined options values

NAME SYNOPSIS DESCRIPTION OPTIONS METHODS EXAMPLE SEE ALSO

NAME

Tk::Optionmenu − Let the user select one of some predefined options values

use Tk::Optionmenu;
$opt = $w−>Optionmenu(
−options => REFERENCE_to_OPTIONLIST,
−command => CALLBACK,
−variable => SCALAR_REF,
);
$opt−>addOptions( OPTIONLIST );
# OPTION LIST is
# a) $val1, $val2, $val3,...
# b) [ $lab1=>$val1], [$lab2=>val2], ... ]
# c) combination of a) and b), e.g.,
# val1, [$lab2=>val2], val3, val4, [...], ...

DESCRIPTION

The Optionmenu widget allows the user chose between a given set of options.

If the user should be able to change the available option have a look at Tk::BrowseEntry.

OPTIONS

−options

(Re)sets the list of options presented.

−command

Defines the callback that is invokes when a new option is selected.

−variable

Reference to a scalar that contains the current value of the selected option.

−textvariable

Reference to a scalar that contains the text label of the current value of the selected option.

METHODS

addOptions

Adds OPTION_LIST to the already available options.

EXAMPLE

use Tk;
my $mw = MainWindow−>new();
my ($var, $tvar);
my $opt = $mw−>Optionmenu(
−options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
−command => sub { print "got: ", shift, "\n" },
−variable => \$var,
−textvariable => \$tvar
)−>pack;
$opt−>addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);
my $f = $mw−>Frame(−relief=>'groove', −borderwidth => 2)−>pack;
$f−>Label(−textvariable=>\$tvar)−>pack(−side => 'left');
$f−>Label(−text => " −> ")−>pack(−side => 'left');
$f−>Label(−textvariable=>\$var)−>pack(−side => 'left');
$mw−>Button(−text=>'Exit', −command=>sub{$mw−>destroy})−>pack;
MainLoop;