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

Question

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

Answer 1

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

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" и нажав эту клавишу.