用Tk 8.5模仿`tk busy`命令的方法？

Question

因为我的工作台tcl / tk版本是8.5，有没有其他方法用tcl / tk 8.5实现以下功能？谢谢！

proc example {} {
    tk busy .top
    update 
    tk busy forget .top
    exec ....
}

Answer 1

1. 永远不要使用if image.image == UIImage(named: "InnieBulb"){ var frame = image.frame frame.size.height+=10 image.frame = frame } 。

   如果你认为你应该真的使用它，那就再想一想，不要;-) 有关详细信息，请参阅this。

2. 仅发布一个弹出窗口，然后

   1. 将它带到前面 - [focus] command;
   2. 让它＆＃34;保持领先＆＃34; - [wm attributes -topmost] command。

   当您完成操作后，销毁或隐藏（撤回）窗口。

   This page还解释了BLT工具包如何实际实现繁忙窗口，并提供了进一步的指示。