ich habe den ganzen checkbox-code etwas komprimiert:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my @checkBoxes = qw(Name Vorname Adresse PLZ Ort Telefon Geburtsdatum
Eintrittsdatum Vereinsfunktion Ehrung);
#Namenssuche
my $f1=$SuchenFenster->Frame()->pack(-side => 'top');
my %checkBoxes = ();
foreach my $name (@checkBoxes) {
$checkBoxes{$name}->{variable} = 0; # not checked as default
$checkBoxes{$name}->{widget} = $SuchenFenster->Checkbutton
( -background => 'lightgoldenrod1', -text => $name,
-variable => \$checkBoxes{$name}->{variable},
)
->pack(-side => 'left');
} # foreach
# irgendwo auswerten:
my @checkedFields = grep { $checkBoxes{$_}->{variable} } keys %checkBoxes;
# jetzt hast du die namen der Felder in @checkedFields
(nicht getestet)\n\n
<!--EDIT|Strat|1146997354-->