2013-10-14

【備忘録】after コマンド

Tcl/Tk で一定間隔で何かを処理させようと思ったときに after コマンドってどうやって使ったっけ?といつもマニュアルを見て考え込むので、備忘録として簡単なスクリプトにまとめました。今回は短くまとめることにこだわっています。

proc every {ms body} {eval $body; after $ms [info level 0]}
pack [label .l -bg white -textvariable now]
every 1000 {set ::now [clock format [clock seconds] -format %H:%M:%S]}

関連サイト

0 件のコメント: