diff options
author | fvogel <fvogelnew1@free.fr> | 2020-05-02 19:25:08 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2020-05-02 19:25:08 (GMT) |
commit | b1e49e8fcaf74233197cc64fae57ddefaa7045c0 (patch) | |
tree | 11143d08c139ea0772bb3777667c0cea5dc1022c /tests | |
parent | 1f9bfb7ca41d15194eecedc6a5875fe3564ecd7c (diff) | |
download | tk-b1e49e8fcaf74233197cc64fae57ddefaa7045c0.zip tk-b1e49e8fcaf74233197cc64fae57ddefaa7045c0.tar.gz tk-b1e49e8fcaf74233197cc64fae57ddefaa7045c0.tar.bz2 |
Add new test bind-33.19, further exercising simulation of the keyboard to trigger bindings containing several patterns.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bind.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 8bd215a..7431079 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6675,6 +6675,22 @@ test bind-33.18 {simulate use of the keyboard to trigger a pattern sequence with } -cleanup { destroy .t.f } -result {Esc_Ctrl_L(2)_Control-c} +test bind-33.19 {simulate use of the keyboard to trigger a pattern sequence with modifier - bug [16ef161925]} -setup { + pack [frame .t.f] + focus -force .t.f + update + set x {} +} -body { + bind .t.f <Escape><Control-c> { lappend x "Esc_Control-c" } + bind .t.f <Escape><KeyPress><KeyPress><Control-c> { lappend x "Esc_Key(2)_Control-c" } + event generate .t.f <Escape> + event generate .t.f <Alt_L> + event generate .t.f <Control_L> + event generate .t.f <Control-c> + set x +} -cleanup { + destroy .t.f +} -result {Esc_Key(2)_Control-c} test bind-34.1 {-warp works relatively to a window} -setup { toplevel .top |