使用Perl将命令添加到Tk中的列表框

Question

我想要Listbox，每次选择一个条目时，它都会做一些事情。与-command的{​​{1}}选项一样，除了更改相应变量的值之外，每次按下复选按钮时都允许运行子程序。

有办法吗？

Answer 1

使用bind将子例程绑定到click事件应该可以执行您想要的操作：

# Left mouse button loads file and eval's if .pl suffix.  See the
# OnLoad sub for more details.
$ListBox->bind('', [\&OnLoad] )

请参阅TK tutorial