tk progressbar更新问题

代码在执行过程中，都是进程独占的。

下面的例子，演示了使用progressBar中需要更新显示的问题；

重点：进程的独占；

解决方法：1，多进程，2，等待更新update

package require Tk

grid [ttk::progressbar .tkbar -mode determinate -variable var -maximum 10000 ]
for {set i 0} {$i<10000} {incr i} {
    #do some calc
     incr var
     after 5
     if {$var%100==0} {
         update
         }

    #update
}