Linux Certif

Toute la documentation sur la certification Linux LPI

Tk::Optionmenu.3pm

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.

-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