summaryrefslogtreecommitdiffstats
path: root/tests/bind.test
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2015-02-06 18:08:50 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2015-02-06 18:08:50 (GMT)
commit85827aebcfddf76f4983bb8c6e4fbefbdd6270fd (patch)
tree4bb67bd300b5d351fca37a85c91cedd70fe225e8 /tests/bind.test
parent6b00db07c84b661e9971e8aff1ae241138cea97f (diff)
parent8e9e78d52fa9ba2522f175585e3299f03c5b82d0 (diff)
downloadtk-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/bind.test')
-rw-r--r--tests/bind.test26
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} {