Tcl9/Tk脚本中所有按钮执行相同命令的问题求助

我的系统环境：

• 系统：Fedora
• 已安装软件包：

  Installed packages
  tk.x86_64 1:9.0.0-4.fc42 fedora
  tcl.x86_64 1:9.0.0-7.fc42 624cbc92582d4ecfae4c58749abde4f8
  

我尝试用Tk创建多个按钮，期望每个按钮点击后输出对应的名称，但实际所有按钮点击后都输出My name is Dave.。我的脚本如下：

package require Tk

wm title . "Button Command Test"
wm minsize . 350 300

set names {Anne Beth Clark Dave}

foreach name $names {
    grid [ttk::button .b$name -text $name -command {puts "My name is $name."}]
}

请问问题出在哪？如何无需硬编码实现预期功能？

Tcl中用{}包裹的命令属于延迟求值：只有当按钮被点击时，才会解析$name变量。而foreach循环结束后，name变量的值会停留在最后一个元素Dave，因此所有按钮点击时都会读取这个最终值。

以下几种方法可解决变量绑定问题，无需硬编码：

方法1：用list构造命令（推荐） #

利用list生成包含当前name值的命令列表，让每个按钮的命令直接绑定循环时的name值：

package require Tk

wm title . "Button Command Test"
wm minsize . 350 300

set names {Anne Beth Clark Dave}

foreach name $names {
    set cmd [list puts "My name is $name."]
    grid [ttk::button .b$name -text $name -command $cmd]
}

方法2：使用lambda表达式（Tcl 8.5+支持） #

通过apply创建匿名函数，捕获当前name变量的具体值：

package require Tk

wm title . "Button Command Test"
wm minsize . 350 300

set names {Anne Beth Clark Dave}

foreach name $names {
    grid [ttk::button .b$name -text $name -command [apply {{name} {
        puts "My name is $name."
    }} $name]]
}

方法3：用命名空间隔离变量 #

在循环内创建局部命名空间，保存当前name的值，避免被后续循环覆盖：

package require Tk

wm title . "Button Command Test"
wm minsize . 350 300

set names {Anne Beth Clark Dave}

foreach name $names {
    namespace eval ::btn_$name {
        variable name [set ::name]
        proc click {} {
            variable name
            puts "My name is $name."
        }
    }
    grid [ttk::button .b$name -text $name -command ::btn_$name::click]
}

内容的提问来源于stack exchange，提问作者UndoingTech