diff options
| author | dkf <dkf@noemail.net> | 2004-07-05 21:21:52 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-07-05 21:21:52 (GMT) |
| commit | 6fa2a1a87ff0e4c0ff3a58a1aae4256a1a86d2f0 (patch) | |
| tree | 742347712a28b490b7306c39cf5d3fe022eee0b8 /tests | |
| parent | c92114dc50cd9159d9a8f658472b262adc08e7d5 (diff) | |
| download | tk-6fa2a1a87ff0e4c0ff3a58a1aae4256a1a86d2f0.zip tk-6fa2a1a87ff0e4c0ff3a58a1aae4256a1a86d2f0.tar.gz tk-6fa2a1a87ff0e4c0ff3a58a1aae4256a1a86d2f0.tar.bz2 | |
TIP#158 implementation; keypad keys on Win are now distinguishable.
FossilOrigin-Name: b8333852a20efb533a46767d394b87990010546f
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bind.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/bind.test b/tests/bind.test index b9f2200..6bf6160 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.14 2004/06/17 22:38:56 dkf Exp $ +# RCS: @(#) $Id: bind.test,v 1.15 2004/07/05 21:21:53 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -2460,6 +2460,7 @@ foreach check { {bind-25.29 {<Double 1>} <Double-Button-1>} {bind-25.30 <Triple-1> <Triple-Button-1>} {bind-25.31 {<M1-M2 M3-M4 B1-Control-a>} <Control-B1-Mod1-Mod2-Mod3-Mod4-Key-a>} + {bind-25.32 <Extended-Return> <Extended-Key-Return>} } { lassign $check name shortBind longBind test $name {modifier names} -setup { @@ -2687,7 +2688,7 @@ test bind-31.2 {MouseWheel events} { event gen .b.f <MouseWheel> -delta 120 set x } {120} -test bind-31.2 {MouseWheel events} { +test bind-31.3 {MouseWheel events} { setup set x {} bind .b.f <MouseWheel> {set x "%D %x %y"} |