TStcltk 発言

　毎度お世話になります。

　最近書いているスクリプトの一部です。

menu $m3 -tearoff no
$m3 add command -label "終了" -command exit
$m3 add separator
foreach key [lsort [array names categories]] {
     $m3 add command -label "$key =>  $categories($key)" -command {category $key}
}

proc category { key } {
    clipboard clear
    clipboard append "c: $key\n"
    return
}

　-commandの引数の$keyがメニューを選択したときに、-labelに出力される$key
の値とは異なり、foreachの最後に出力された$keyの値になってしまうのです。
これを避けるにはどうしたらよいでしょうか。

　Perl/Tkでは問題なかったのですが、Tcl/Tkに書き換えると思うように動かな
いのです。

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/