perl - 在 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