diff options
author | Joe Mistachkin <joe@mistachkin.com> | 2015-02-06 18:08:50 (GMT) |
---|---|---|
committer | Joe Mistachkin <joe@mistachkin.com> | 2015-02-06 18:08:50 (GMT) |
commit | 85827aebcfddf76f4983bb8c6e4fbefbdd6270fd (patch) | |
tree | 4bb67bd300b5d351fca37a85c91cedd70fe225e8 /tests | |
parent | 6b00db07c84b661e9971e8aff1ae241138cea97f (diff) | |
parent | 8e9e78d52fa9ba2522f175585e3299f03c5b82d0 (diff) | |
download | tk-85827aebcfddf76f4983bb8c6e4fbefbdd6270fd.zip tk-85827aebcfddf76f4983bb8c6e4fbefbdd6270fd.tar.gz tk-85827aebcfddf76f4983bb8c6e4fbefbdd6270fd.tar.bz2 |
Add support for an 'M' binding substitution that is replaced with the number of script-based binding patterns matched so far for the event.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bind.test | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 85372f8..de9da70 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -25,6 +25,14 @@ proc setup {} { foreach p [event info] {event delete $p} update } +proc setup2 {} { + catch {destroy .b.e} + entry .b.e + pack .b.e + focus -force .b.e + foreach p [event info] {event delete $p} + update +} setup foreach i [bind Test] { @@ -1565,6 +1573,24 @@ test bind-16.44 {ExpandPercents procedure} { event gen .b.f <Gravity> set x } {?? ??} +test bind-16.45 {ExpandPercents procedure} { + setup2 + bind .b.e <Key> {set x "%M"} + bind Entry <Key> {set y "%M"} + bind all <Key> {set z "%M"} + set x none; set y none; set z none + event gen .b.e <Key-a> + list $x $y $z +} {0 1 2} +test bind-16.46 {ExpandPercents procedure} { + setup2 + bind all <Key> {set z "%M"} + bind Entry <Key> {set y "%M"} + bind .b.e <Key> {set x "%M"} + set x none; set y none; set z none + event gen .b.e <Key-a> + list $x $y $z +} {0 1 2} test bind-17.1 {event command} { |