[quote=ulix,08.04.2005, 18:51]funktioniert bei mir garnet:
ulix@linux:~> perl zins.pl
Tk::Error: Can't call method "Call" on an undefined value at /usr/lib/perl5/vendor_perl/5.8.5/i586-linux-thread-multi/Tk/After.pm line 83.
[once,[{},after#1,idle,once,[ConfigChanged,{},{}]]]
("after" script)
Xlib: unexpected async reply (sequence 0x48)!
thread failed to start: Can't set -title to `6' for MainWindow=HASH(0x8523800):bad window path name "." at /usr/lib/perl5/vendor_perl/5.8.5/i586-linux-thread-multi/Tk/Submethods.pm line 37.
at /usr/lib/perl5/vendor_perl/5.8.5/i586-linux-thread-multi/Tk/Derived.pm line294[/quote]
die erste Fehlermeldung bekomm ich auch manchmal, aber eben nicht immer !

zur letzten fehlt mir das logische denkvermögen:
thread failed to start: Can't set -title to `6'

Wenn der thread nicht gestartet werden kann, kann er title auch nicht auf 6 setzen weil bis dahin die schleife ja schon 6 mal gelaufen sein muss... das verstehe wer will !

versuch doch mal, $win noch mit zu exportieren:
my $t = threads->new(\&kind, $win);\n\n

<!--EDIT|Froschpopo|1112979515-->