Optionmenu mit Scrollbalken

Die Tk::PopUpSelectBox ist so eine Art Aufklappmenü, das eine Liste von Elementen anzeigt. Die Liste kann in ihrer Höhe eingeschränkt werden und die Liste hat Scrollbalken. Siehe auch: Tk::Optionmenu.

#!perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::PopUpSelectBox;

my $ausgewaehlter_wert = undef;
my @elemente = qw(rot blau grün gelb);
my $demo_xpm;

my $mw = MainWindow->new();

# create a demo 
my $popupselectbox = $mw->PopUpSelectBox (
	-text     => "Auswahl",
	-command  => \&eigener_callback,
	-options  => [ @elemente ],
	-variable => \$ausgewaehlter_wert, 
	-listmaxheight => 2,
)->pack;

$mw->MainLoop;
	
sub eigener_callback {
	print "eigener callback wurde aufgerufen mit: [@_], \$current_class = [$ausgewaehlter_wert]\n";
} # /eigener_callback

exit(0);
Top