tcl网络用语,网络用语 "TCL" 是什么意思?..( 二 )


另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间 , 3行就显示了一个时钟 。
proc every {ms body} {eval $body; after $ms [info level 0]}pack [label。clock -textvar time]every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]} ;# RS解释:第一行定义了过程every,每隔ms毫秒,就重新执行body代码 。第二行创建了标签起内容由time变量决定 。第3行中设置定时器,time变量从当前时间中每秒更新一次 。

经验总结扩展阅读