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

Question

我想要有一个Listbox，每次选择一个条目时，它都会执行一些操作。与Checkbutton的-command选项一样，它允许每次按下检查按钮时运行一个子例程，此外还可以更改相应变量的值。

有没有办法做到这一点？

Answer 1

使用绑定绑定你的子程序点击事件应该做你想要什么：

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

看到TK tutorial