Fix 3 bugs in X11 keysym translations, originating from X11-r5 which were fixed in X11-r6. Add 3 test-cases, proving each of them.

1 files changed, 22 insertions, 1 deletions

diff --git a/tests/bind.test b/tests/bind.test
index a991f01..e7b3db3 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -5918,13 +5918,34 @@ 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 {
+test bind-28.9 {keysym names, Eth -> 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-28.10 {keysym names, Ooblique -> Oslash} -body {
+    frame .t.f -class Test -width 150 -height 100
+    bind .t.f <Ooblique> foo
+    bind .t.f
+} -cleanup {
+    destroy .t.f
+} -result {<Key-Oslash>}
+test bind-28.11 {keysym names, gcedilla} -body {
+    frame .t.f -class Test -width 150 -height 100
+    bind .t.f <gcedilla> foo
+    bind .t.f
+} -cleanup {
+    destroy .t.f
+} -result {<Key-gcedilla>}
+test bind-28.12 {keysym names, Greek_IOTAdiaeresis -> Greek_IOTAdieresis} -body {
+    frame .t.f -class Test -width 150 -height 100
+    bind .t.f <Greek_IOTAdiaeresis> foo
+    bind .t.f
+} -cleanup {
+    destroy .t.f
+} -result {<Key-Greek_IOTAdieresis>}
 
 
 test bind-29.1 {Tcl_BackgroundError procedure} -setup {