for循环中的button -command（没有这样的变量）

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
}