perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 26
Click for quality!




10.02.2012 / 20:48

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragcheckbuttons 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

Beitragre: 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

-






-
-