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

# SYNOPSIS

        use 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 the Tk::BrowseEntry manpage.

# 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.

# METHODS

addOptions
  Adds OPTION_LIST to the already available options.

# EXAMPLE

        use Tk;
        my $mw = MainWindow->new();

        my $var;
        my $opt = $mw->Optionmenu(
                    -options => [qw(jan feb mar apr)],
                    -command => sub { print "got: ", shift, "\n" },
                    -variable => \$var,
                    )->pack;

        $opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);

        $mw->Label(-textvariable=>\$var, -relief=>'groove')->pack;
        $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;

        MainLoop;

# SEE ALSO

the Tk::Menubutton manpage, the Tk::BrowseEntry manpage

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