#
# Listbox:
#
my $listbox = $fo->Listbox(-relief     => 'sunken',
                           -width      => -1,
                           -setgrid    => 1,
                           -selectmode => 'extended',
                          )
                    ->pack(-side       => 'right',
                           -expand     => 1,
                           -fill       => 'both',
                          );
for my $kugel (
               'Vanille',
               'Schokolade',
               'Erdbeer',
               'Heidelbeer',
               'Joghurt',
               'Amarena',
               'Malaga',
               'Wallnuss',
               'Haselnuss',
               'weiße Schokolade',
               'After Eight',
              )
{
    $listbox->insert('end', $kugel);
}
$listbox->selectionSet(0, 2); # Default : Fürst Pückler Art