Как связать клавиши «+» и «-» в Tcl/Tk

Как привязать клавиши + и - к командам в Tcl/Tk?


bind tcl tk
person SIMEL    schedule 03.11.2011    source источник

Ответы (1)


arrow_upward
5
arrow_downward

Для этой конкретной проблемы:

set foo "t:"
pack [label .l -textvar foo]
bind . <Key-plus> {append foo "+"}
bind . <Key-KP_Add> {append foo "(+)"}
bind . <Key-minus> {append foo "-"}
bind . <Key-KP_Subtract> {append foo "(-)"}

Но в целом вы можете найти имя ключа, запустив «xev» и нажав эту клавишу.

person fcr    schedule 03.11.2011
comment
Либо запустите Wish, запустите в нем bind . <Key> {puts %K}, а затем нажмите нужные клавиши в окне Wish - он напечатает соответствующие символы клавиш на консоли. Это кроссплатформенный вариант по сравнению с xev, который можно найти только в X Window. - person kostix; 03.11.2011