Nick Ing-Simmons (PAUSE Custodial Account) > Tk-800.024 > Tk::Optionmenu

Download:
Tk-800.024.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  33
Open  54
Stalled  14
View/Report Bugs
Module Version: 3.025   Source   Latest Release: Tk-804.032_500

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

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 ^

Tk::Menubutton, Tk::BrowseEntry

syntax highlighting: