Opened by Gast at 2005-01-31 21:55
Hallo,
Ich muss für mein PerlTk-Script mehrere Threads laufen lassen, um die Daten einer Schnittstelle lesen zu können und weitere Prozesse quasi parallel ablaufen lassen. Das zu programmieren ist ja in Perl ein Kinderspiel. Aber habe ich ein kleines Problem. Ich starte ganz normal den Thread, will in der Thread-Funktion auf ein Objekt eines Tk-Widgets konfigurieren.
bekanntlich mit: $widget->configure(-otpion =>wert);
Ich bekomme eine Fehlermeldung.
Kann mir jemand weiterhelfen?
Danke
kleiner Auschnitt:
\n\n
<!--EDIT|renee|1107212515-->
Ich muss für mein PerlTk-Script mehrere Threads laufen lassen, um die Daten einer Schnittstelle lesen zu können und weitere Prozesse quasi parallel ablaufen lassen. Das zu programmieren ist ja in Perl ein Kinderspiel. Aber habe ich ein kleines Problem. Ich starte ganz normal den Thread, will in der Thread-Funktion auf ein Objekt eines Tk-Widgets konfigurieren.
bekanntlich mit: $widget->configure(-otpion =>wert);
Ich bekomme eine Fehlermeldung.
Kann mir jemand weiterhelfen?
Danke
kleiner Auschnitt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
sub threadFunktion{
my $s_red=0;
my $s_green=0;
my $s_blue=0;
while(1){
$s_blue=$s_blue+10;
$farbe = sprintf("#%02x%02x%02x",$s_red,$s_green,$s_blue);
$c->itemconfigure('tags',-fill =>$farbe);
sleep(1);
}
}<!--EDIT|renee|1107212515-->