Perl TK Bind-это не возврат цифровой клавиатуры?

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

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

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

1 ответов


<KP_Enter> должно соответствовать цифровой клавиатуре enter. Вы можете связать его так же, как Return.