Rollbalken Widget
•#!/usr/bin/perl
•use strict;
•use warnings;
•use Tk;
•my $mw  = MainWindow->new();
•
•my $box = $mw->Scrolled('Listbox',
•                        -scrollbars => 'oe',
•                        -height     => 5,
•                       )
•                 ->pack(-side       => 'left',
•                        -fill       => 'both',
•                        -expand     => 1,
•                       );
•
•$box->insert('end', $_)
•    for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);
•
•MainLoop();