From: SourceForge.net <no...@so...> - 2005-06-14 19:54:49
|
Bugs item #1220692, was opened at 2005-06-14 21:49 Message generated for change (Comment added) made by davidw You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1220692&group_id=12997 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: 70. Event Loop Group: None Status: Open Resolution: None Priority: 5 Submitted By: David N. Welton (davidw) Assigned to: Jeffrey Hobbs (hobbs) Summary: tk locks up Initial Comment: This script, when run under strace, locks up Tk on Linux: # loop.tcl # Run like so: # strace tclsh loop.tcl package require Tk proc screenupdate {num} { incr num .foo configure -text $num after 10 [list screenupdate $num] } button .foo pack .foo screenupdate 0 ----- Or better, it seems to reproduce the bug I see in a script that locks up even without strace. The following script will lock it up without strace. Ok - so it's kind of evil, but still, it seems to be tickling a race condition or something. Note that it's not just slow - it's locked, it's not doing anything. # loop.tcl # Run like so: # strace tclsh loop.tcl package require Tk proc afterburner {} { after 10 afterburner } proc screenupdate {num} { incr num .foo configure -text $num after 10 [list screenupdate $num] } button .foo pack .foo screenupdate 0 afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner afterburner ------------- ---------------------------------------------------------------------- >Comment By: David N. Welton (davidw) Date: 2005-06-14 21:54 Message: Logged In: YES user_id=240 Here is some info: % info patch 8.4.9 Running on Debian stable (davidw) 51 % puts $tk_patchLevel 8.4.9 More info as needed. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=112997&aid=1220692&group_id=12997 |