#
# Radiobuttons2:
#
my $f3 = $fo->Frame(-borderwidth => 3,
                    -relief      => 'groove',
                   )
             ->pack(-side        => 'right',
                    -expand      => 1,
                    -fill        => 'both',
                   );
my @saucensorten = ('keine Sauce',
                    'Erdbeersauce',
                    'Schokoladensauce',
                    'Tropico',
                   );
my $sauce = 0;
for my $i (0..$#saucensorten) {
    $f3->Radiobutton(-text     => $saucensorten[$i],
                     -variable => \$sauce,
                     -value    => $i,
                    )
              ->pack(-anchor   => 'w');
}