Provided by: perl-tk_804.036+dfsg1-1ubuntu3_amd64 bug

NAME

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

SYNOPSIS

           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;

SEE ALSO

       Tk::Menubutton, Tk::BrowseEntry