GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  TK::OPTIONMENU (3)

.ds Aq ’

NAME

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

CONTENTS

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 <B>OptionmenuB> 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
Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 OPTIONMENU (3) 2013-11-15

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.