Tk::Optionmenu - Drop-Down-Auswahl

Tk::Optionmenu ist ein Auswahlmenu mit vorgegebenen Antworten. Das Menu klappt aus (Ausklappmenu), wenn man darauf klickt.


Perl-Quellcode

#!perl

use strict;
use warnings;
use Tk;
use Tk::Optionmenu;

my $mw = tkinit();

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(-side => 'left', -anchor => 'n',);

$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;

$mw->MainLoop();
Top