在tcl / tk中为GUI的按钮分配代码

Question

我是这个'GUI'的新手，但我想在tcl / tk中创建一个GUI，只需一个按钮和一个显示输出即可。我已经浏览了几个GUI示例，但我找到了一个示例，将代码/脚本分配给按钮。所以有人可以帮我这个吗？

是否可以将perl脚本分配给tcl / tk GUI代码？

提前致谢。

Answer 1

我不确定你的确切问题是什么，因为你想做的事情非常简单。只需使用-command选项：

pack [button .b -text Hello -command {puts "Hello World"}]

如果您要执行的代码是字符串，那么您可以执行以下操作：

set code {
    puts "Hello World"
}
pack [button .b -text Hello -command $code]

如果你想执行一个功能：

proc say_hello {} {
    puts "Hello World"
}
pack [button .b -text Hello -command say_hello]

如果要分配命令的按钮已存在，则只需将其分配给-command选项：

# Assuming button .b already exist:
.b configure -command say_hello