tcl - ボタン - for ループ内のコマンド (そのような変数はありません)

Question

私はTCLでこの小さなループサイクルを持っています

for {set i 1} {$i <= $user} {incr i} {
   grid [ttk::button .seluser.$i -text "$i" -command { set ::user $i }] -column $i -row 1
}

そして私はメッセージを受け取っています

エラーで「i」を読み取れません: そのような変数はありません

-command新しい proc のように動作するためだと思います。そのため、変数を識別できませんi。

やり方がわかりません。誰でも私を助けることができますか？

Answer 1

中かっこの代わりに引用符を試してください。これにより、$i事前に補間されます。例えば、

for {set i 1} {$i <= $user} {incr i} {
    grid [ttk::button .seluser.$i -text "$i" -command " set ::user $i "] -column $i -row 1
}