|
|
 |

|

 |

| Community » Perl: Allgemeines Forum |
|
checkbuttons auf 0 setzen
|
Seitenanfang |
Hallo Perlprogramierer, ich habe eine Funktion die ein paar checkbuttons erzegt. und ich möchte diese buttons zurücksetzen dass heisst das Häkchen weg machen. es muss aber ausserhalb der funktion sein.
if (! Exists($tl)) { # checkFrame @node_values = {}; $j = 0; $tl = $mw->Toplevel; # New Popup Window $f_check = $tl->Frame();#CheckFrame @pa = mark_children('Platform', 'Program', $button); # Checkbuttons & Call mark_children() # Platforms = Parents, Programs = Kids for($i=0; $i<$count_program; $i++) { if ($pa[$i]== 1) { @node_values = StandLib::GetALLNodeValues('Program',$i); $check_value[$i]= 0; #---checkbuttons--- $program[$i] = $f_check->Checkbutton(-text => $node_values[1], -variable => \$checked_progs[$i]) # ->pack(-side => 'top', -anchor => 'c', -padx => '1c', -pady => '0.5c'); ->pack(-side => 'top', -anchor => 'w', -padx => '1c'); } } #---done_Button im Checkframe--- $exit = $f_check->Button(-text => "done", -command => sub{$tl->destroy}) ->pack(-side => 'top', -padx => '0.5c'); $f_check->pack;
habt ihr da eine Ahnung wie ich es machen kann???habt ihr eine idee??eine Seite..
Datum: 01.08.2007-15:45

|
re: checkbuttons auf 0 setzen
|
Seitenanfang |
| danke euch habe ich gefunden ich musste einfach 2 Arrays auf 0 setzen. eins davon ist $checked_progs[$i]. Der andere in einer anderen Funktion.
Datum: 01.08.2007-16:47

|
|

|

|

|
 |

|

|
|