８．５だとエラーを吐いた。
wish８．６の記述が新しい開発環境のところ。
tk busy hold でウィンドウをホールドしている。
ジョブが終了するまで、アイコンが時計のマークに変わり、待機している。
トップレベル（toplevel）で新しいウィンドウを作り、アフター（after）コマンドでプログラムを遅延させた。
forgetで忙しいを忘れるで・・・ホールド解除。
意味もなく”ＯＫ”ボタンを押すとプログラムが終了するようにした。
#!/usr/bin/wish8.6
frame .f1
button .f1.button -text "busy test"; canvas .f1.canvas
pack .f1.button .f1.canvas
pack .f1
###busy設定###
tk busy hold .f1
update
###job###
toplevel .top
button .top.button1 -text "OK" -command {exit}
button .top.button2 -text "OK" -command {exit}
button .top.button3 -text "OK" -command {exit}
pack .top.button1 .top.button2 .top.button3
after 10000 ;
###busy解除###
tk busy forget .f1