5

我在命令选项上传递变量时遇到问题,例如:

package require Tk
wm withdraw .
destroy .button
toplevel .button

# button.0: puts 0
set count 0
button .button.$count -text $count -command {puts $count}
grid .button.$count -column $count -row 0

# button.1: puts 1
incr count
button .button.$count -text $count -command {puts $count}
grid .button.$count -column $count -row 0

但是 button.0 放置 1 而不是 0。似乎在调用 button.0 时,它采用了当时变量的值,即 1。

我发现我可以使用过程和全局变量来实现所需的结果,但我想知道是否可以在不诉诸过程调用的情况下实现这一目标。

先感谢您。

4

2 回答 2

7

如果要在定义回调时替换变量的当前值,则需要使用不同的引用机制:

button .button.$count -text $count -command [list puts $count]
于 2013-01-22T00:33:24.163 回答
3

使用您的代码,您可以创建 2 个触发命令的按钮:

puts $count

在您的示例中,当您按下按钮时,变量 $count 等于“1”,因此“放置”并显示该值。为了正确操作需要创建2个按钮。第一个按钮命令应该是“puts 0”。第二个按钮命令应该是“puts 1”。我们必须在创建按钮时应用替换。例如:

-command [list puts $count]
-command "puts $count"
于 2013-01-22T11:06:52.747 回答