如何获取Tcl文本编辑器传递的变量值？proc中$num无法用puts查看

我明白你的问题——你写了一个创建输入框的proc，绑定了num作为文本变量，但用puts命令看不到它的内容对吧？这其实是Tcl的变量作用域和Tk组件的工作机制导致的，我给你两种实用的解决办法：

方法一：在proc内部添加触发查看的按钮（适合用户主动查看场景） #

你原来的代码里，num是proc的局部变量，而且刚创建输入框时它是空的，直接puts自然看不到有效内容。可以加个按钮，让用户输入内容后点击查看：

proc editor {} {
    label .l_LNum -text "Calibration Date"
    entry .e_Num -width 20 -relief sunken -textvariable num
    # 添加按钮，点击时输出变量内容
    button .b_View -text "查看校准日期" -command {puts "当前校准日期：$num"}
    # 布局组件
    grid config .l_LNum -column 0 -row 0 -sticky e
    grid config .e_Num -column 1 -row 0 -sticky "snew"
    grid config .b_View -column 0 -row 1 -columnspan 2 -sticky ew
}

用户在输入框填完内容后，点击按钮就能在控制台看到num的实时内容了。

方法二：将变量声明为全局变量（适合外部直接访问场景） #

如果想在proc执行完毕后，在控制台或者其他代码里直接用puts $num查看内容，需要把num声明为全局变量，打破proc的局部作用域限制：

proc editor {} {
    global num  # 声明num为全局变量
    label .l_LNum -text "Calibration Date"
    entry .e_Num -width 20 -relief sunken -textvariable num
    grid config .l_LNum -column 0 -row 0 -sticky e
    grid config .e_Num -column 1 -row 0 -sticky "snew"
}

现在运行editor创建界面，输入内容后，在控制台敲puts $num就能直接看到输入的校准日期了。

为什么原来的puts无效？ #

你原来的代码里，num是proc的局部变量——proc执行完毕后，它的局部作用域会被销毁，虽然输入框组件还存在，但外部代码无法访问这个局部变量；如果是在proc内部创建完输入框就立刻puts $num，那时候num还没有任何用户输入，自然输出空字符串，看起来像是无效。

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