Skip site navigation (1)Skip section navigation (2)

FreeBSD Manual Pages

  
 
  

home | help
Optionmenu(3)	      User Contributed Perl Documentation	 Optionmenu(3)

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

perl v5.32.0			  2013-11-15			 Optionmenu(3)

NAME | SYNOPSIS | DESCRIPTION | OPTIONS | METHODS | EXAMPLE | SEE ALSO

Want to link to this manual page? Use this URL:
<https://www.freebsd.org/cgi/man.cgi?query=Tk::Optionmenu&sektion=3&manpath=FreeBSD+12.1-RELEASE+and+Ports>

home | help