use warnings;
use strict;
use Tk;

# Das mw erzeugen
my $mw = MainWindow->new();
$mw->Label(-text => '     Test für Listbox     ')->pack();

my $status = '';
my $typ = 0;

my @sorten = ('Limousine',
              'Coupe',
              'Kombi',
              'Cabriolet',
              'Roadster',
             );

my $label = $mw->Label(-relief => 'ridge',
                       -textvariable => \$status);
$label->pack(-padx => 10, -pady => 10);

# mal wieder einen Exit-Button
$mw->Button(-text     => "   Exit   ",
            -command  => sub { exit 0 })
               ->pack(-padx => 10, -pady => 10);

my $box1 = $mw->Listbox(-height => 5,
                        -selectmode=>'extended',)
                     ->pack(-side   => 'left',
                            -fill   => 'both',
                            -expand => 1,
                           );
$box1->insert('end', $_) for @sorten;


# Alle Werte ständig updaten
$mw->repeat(200,sub { my @typen = $box1->curselection();
                      $status = "Typ(en): @typen";
                    });

MainLoop;