#
# Checkbuttons:
#
my $f1 = $fo->Frame(-borderwidth => 3,
                    -relief      => 'groove',
                   )
             ->pack(-side        => 'right',
                    -expand      => 1,
                    -fill        => 'both',
                   );
my $sahne;
my $waffel;
$f1->Checkbutton(-text     => "Sahne",
                 -variable => \$sahne,
                )
          ->pack(-anchor   => 'w');
$f1->Checkbutton(-text     => "Extrawaffel",
                 -variable => \$waffel,
                )
          ->pack(-anchor   => 'w');