在此Coundown计时器中取消延迟命令时，是否有种族条件？

Question

我已经实现了一个具有“重置”按钮来取消倒计时的倒计时计时器：

set LAUNCHTIME 5
set message $LAUNCHTIME
set afterId {}

proc countdown {remainingSeconds} {
    global afterId message
# **
    if {$remainingSeconds > 0} {
        set message $remainingSeconds
# **
        set afterId [after 1000 [list countdown [expr {$remainingSeconds - 1}]]]
    } else {
        set message "Takeoff!"
        .start configure -state normal
    }
}

label .message -textvariable message
button .start -text Start -command {
    .start configure -state disabled
    countdown $LAUNCHTIME
}
button .reset -text Reset -command {
    # Reset timer, message, and button.
    after cancel $afterId  ;# <- XXX: Could this cause a race condition?
    set message $LAUNCHTIME
    .start configure -state normal
}

grid .message
grid .start
grid .reset
grid anchor . center

这就是按下“启动”按钮时的外观：

是否可能会有可能的种族条件。重置“倒计时发生时按下按钮？我担心在程序中执行双星号（**）之间的“重置”按钮时按下“重置”按钮。那时，没有计划执行的延迟命令，因此“重置”不会取消任何延迟命令。但是，在此之后，即使用户打算重置倒计时，也将安排一个新的延迟命令执行（设置afterID [after afterID [after afterID [after afterID [after Ind ...]）。

Answer 1

TCL运行单线螺纹（至少在单个解释器中）。事件仅在事件循环中进行处理。这意味着您不必担心会发生一些可能会改变事物的事情，而执行代码的顺序块。

如果用户在Countdown Proc运行时单击重置按钮，则PROC一直持续到最后。当时，事件循环通过执行附加到按钮的命令选项的代码来恢复并处理按钮键。取消事件后，因此Countdown将不会再次调用。

同样，如果在事件之后的在重置按钮运行的代码运行时到期，则代码完成，请在事件开始后的的代码之前取消事件。