Your code:
> proc startThreadTest {} {
> <snip>
> startThreadTest
> }
startThreadTest calls itself recursively, so you'll eventually run out of
stack space or reach the tcl maximum recursion level. If you'd like to
avoid that you can do something like
proc startThreadTest {} {
<some stuff>
after 10 startThreadTest
}
which if I'm not mistaken will fix your problem.
Or, you can do something like
while 1 {
startThreadTest
}
Rusty
------------------------------------------
Rusty Brooks : http://www.rustybrooks.org/
Spewing wisdom from every orifice
------------------------------------------