diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-01 09:40:24 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-01 09:40:24 (GMT) |
commit | 534ae47e254662b71b83328072db7bfe7206d3cb (patch) | |
tree | fe47289788431401dfb6b001ce384a36dc0a8489 /tests/event.test | |
parent | ce1ffe482eddaadc89c0622cb6b5df3ac11db9da (diff) | |
parent | f9816042fed0405176e42b8e150e111e698d0c3c (diff) | |
download | tk-534ae47e254662b71b83328072db7bfe7206d3cb.zip tk-534ae47e254662b71b83328072db7bfe7206d3cb.tar.gz tk-534ae47e254662b71b83328072db7bfe7206d3cb.tar.bz2 |
Fix [e36963bfe8df9f5e528134707a91b9c0051de723|e36963bfe8]: event generate and diaeresis
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/event.test b/tests/event.test index 756dbe5..7fce6c7 100644 --- a/tests/event.test +++ b/tests/event.test @@ -822,6 +822,41 @@ test event-7.2(double-click) {A double click on a lone character deleteWindows } -result {4 A 4 A} +test event-8 {event generate with keysyms corresponding to + multi-byte virtual keycodes - bug + e36963bfe8df9f5e528134707a91b9c0051de723} -setup { + deleteWindows + set res [list ] +} -body { + set t [toplevel .t] + set e [entry $t.e] + pack $e + tkwait visibility $e + bind $e <KeyPress> {lappend res keycode: %k keysym: %K} + focus -force $e + update + event generate $e <diaeresis> + # The value now contained in $res depends on the actual + # physical keyboard layout and keycode generated, from + # the hardware on which the test suite happens to run. + # We don't need (and we can't really) check correctness + # of the (system-dependent) keycode received, however + # Tk should be able to associate this keycode to a + # (system-independent) known keysym, unless the system + # running the test does not have a keyboard with a + # diaeresis key. + if {[expr {[lindex $res 3] ne "??"}]} { + # keyboard has a physical diaeresis key and bug is fixed + return "OK" + } else { + return "Test failed, unless the keyboard tied to the system \ + on which this test is run does NOT have a diaeresis \ + physical key - in this case, test is actually void." + } +} -cleanup { + deleteWindows +} -result {OK} + # cleanup unset -nocomplain keypress_lookup rename _init_keypress_lookup {} |