Perl Tk Bind не является возвратом цифровой клавиатуры?

Я беру у пользователя ISBN. Вероятно, со сканера штрих-кода (18 цифр EAN, оканчивающихся возвратом), но его можно ввести вручную (13 цифр). Если это вручную, оно будет исходить от цифровой клавиатуры и может заканчиваться «Ввод с цифровой клавиатуры». Я добавил привязку к своему коду:

$isbn_entry->bind("<Return>", sub{shift->focusNext});

Который работает правильно, когда нажата клавиша ввода на клавиатуре, но не при нажатии клавиши ввода на цифровой клавиатуре. Должен ли я добавить еще одну привязку, чтобы поймать и эту? Если да, то как? Или я изначально сделал это неправильно?

7
задан charlesbridge 19 June 2012 в 20:47
поделиться