Добавление команды в список в Tk с помощью Perl

Question

Я хочу иметь Listbox, что каждый раз, когда выбирается запись, она будет что-то делать. Как и опция -command для Checkbutton, она позволяет запускать подпрограмму при каждом нажатии кнопки проверки, в дополнение к изменению значения соответствующей переменной.

Есть ли способ сделать это?

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