Tcl/Tk 绑定需要全局变量吗？

Question

我有一个控制自动测试器的 Tcl 脚本。到目前为止，它是一个控制台程序，在命令提示符处接受用户输入。一位同事编写了一个可以通过脚本启动的 Tk GUI。我自己从来没有使用过Tk，所以我不明白很多语法。

在测试开始时，脚本必须从操作员处获取单元序列号。这是我的同事为此编写的函数：

proc GetSerialNumber {} {
 global gUserInterfaceBarCode

 DisplayMessage "Enter serial number:"

 .c.serialnumberbox configure -state normal

 focus .c.serialnumberbox

 bind .c.serialnumberbox <Return> { set gUserInterfaceBarCode [.c.serialnumberbox get] }

 tkwait variable gUserInterfaceBarCode

 #grid forget .c.serialnumberbox

 .c.serialnumberbox configure -state disabled

}

DisplayMessage 是一个简单更新 GUI 上文本标签的过程。

我不喜欢有一个全局变量 gUserInterfaceBarCode 用来保存序列号。有什么方法可以使用局部变量并让过程返回该值吗？

如果我理解正确的话，如果取出 tkwait 变量 gUserInterfaceBarCode 行，则该函数将不会阻塞，直到该变量发生变化。这是从 GUI 元素捕获用户输入的最佳方法吗？

Answer 1

从根本上讲，您需要有一个变量来等待。不幸的是， 的代码是在与 proc 内的代码不同的上下文（全局上下文）中执行的，并且该代码无法寻址 proc 中的局部变量。

然而，它本身并不需要一个全局变量——它只需要是全局可寻址的，我的意思是你可以使用命名空间变量，如果这让你感觉更好的话：

namespace eval GetSerialNumber {
    proc GetSerialNumber {} {

        DisplayMessage "Enter serial number:"
        .c.serialnumberbox configure -state normal
        focus .c.serialnumberbox
        bind .c.serialnumberbox <Return> { set ::GetSerialNumber::result [.c.serialnumberbox get] }
        tkwait variable ::GetSerialNumber::result
        .c.serialnumberbox configure -state disabled
        return $::GetSerialNumber::result
    }
}

set serialNum [GetSerialNumber::GetSerialNumber]

另一种选择是在返回之前显式删除 gUserInterfaceBarCode：

tkwait variable ::gUserInterfaceBarCode
set result $::gUserInterfaceBarCode
unset ::gUserInterfaceBarCode
return $result

就其价值而言，Tk 核心实现使用命名空间方法来实现其自己的内置对话框，例如“打开文件”对话框。