#
# Radiobuttons1:
#
my $f2 = $fo->Frame(-borderwidth => 3,
-relief => 'groove',
)
->pack(-side => 'right',
-expand => 1,
-fill => 'both',
);
my @streuselsorten = ('keine Streusel',
'Schokoladenstreusel',
'bunte Streusel',
'Krokantstreusel',
'Zartbitterabrieb',
);
my $streusel = 0;
for my $i
(0..$#streuselsorten) {
$f2->Radiobutton(-text => $streuselsorten[$i],
-variable => \$streusel,
-value => $i,
)
->pack(-anchor => 'w');
}