diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-07-05 21:21:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-07-05 21:21:52 (GMT) |
| commit | e8809da1d2cb4e46c946ed54c986438049390981 (patch) | |
| tree | 742347712a28b490b7306c39cf5d3fe022eee0b8 /tests | |
| parent | d40c78419c8a83e6390e95cc7599f770661548f8 (diff) | |
| download | tk-e8809da1d2cb4e46c946ed54c986438049390981.zip tk-e8809da1d2cb4e46c946ed54c986438049390981.tar.gz tk-e8809da1d2cb4e46c946ed54c986438049390981.tar.bz2 | |
TIP#158 implementation; keypad keys on Win are now distinguishable.
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"} |