tcl - 如何在 vwait 中的每次迭代后永远评估给定的脚本？

Question

vwait forever运行事件循环直到exit命令。

在事件循环的每次迭代中，我都有一些事情要做。我怎样才能做到这一点？

Answer 1

你没有。你要做的是安排定期的计时器事件来完成你的工作。对于用户交互，每秒 10 次已经足够有规律了。要安排定期计时器事件，请使用everyTcler's Wiki 中的命令，如下所示：

proc every {ms body} {after $ms [info level 0]; eval $body}
every 100 {
    puts "I'm saying Hi ten times a second!"
}

这是最简单的every; 更复杂的可取消版本位于该 wiki 页面的下方。