diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 21:36:35 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 21:36:35 (GMT) |
commit | e02fdc0c1df829ee25edf15d6b88728cadd60947 (patch) | |
tree | f613746d26732b512b404de432cfc1e93796549f /tests | |
parent | 38ecedd3a179ee02c2541a6d4bf8d7b6348b4943 (diff) | |
download | tk-e02fdc0c1df829ee25edf15d6b88728cadd60947.zip tk-e02fdc0c1df829ee25edf15d6b88728cadd60947.tar.gz tk-e02fdc0c1df829ee25edf15d6b88728cadd60947.tar.bz2 |
Add deprecate Key-names to ks_names.h, and make sure that deprecated Keynames are translated back to their non-deprecated names.
This is how X11 does it, our emulation should do it the same way.
Added test-case demonstrating this with Eth -> ETH.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bind.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 24bf1d0..a991f01 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -5918,6 +5918,13 @@ test bind-28.8 {keysym names} -setup { } -cleanup { destroy .t.f } -result {X x {keysym X}} +test bind-28.9 {keysym names, deprecated X11 names (e.g. "Eth") are translated into non-deprecated version (like "ETH")} -body { + frame .t.f -class Test -width 150 -height 100 + bind .t.f <Eth> foo + bind .t.f +} -cleanup { + destroy .t.f +} -result {<Key-ETH>} test bind-29.1 {Tcl_BackgroundError procedure} -setup { |