#
# OK-Button:
#
$mw->Button(-text    => 'OK',
            -command => sub {
                 print "Sahne      : ", $sahne?'ja':'nein',         "\n",
                       "Extrawaffel: ", $waffel?'ja':'nein',        "\n",
                       "Streusel   : ", $streuselsorten[$streusel], "\n",
                       "Sauce      : ", $saucensorten[$sauce],      "\n";
                 my @l = $listbox->get(0, 'end');
                 my @s = $listbox->curselection();
                 print $l[$_], "\n" for (@s);
                 $mw->destroy();
                            },
           )
     ->pack(-side   => 'bottom',
            -expand => 0,
            -fill   => 'none',
            -ipadx  => 20,
            -pady   => 2,
           );
MainLoop();