Add support for an 'M' binding substitution that is replaced with the number of script-based binding patterns matched so far for the event.

1 files changed, 32 insertions, 1 deletions

diff --git a/tests/bind.test b/tests/bind.test
index c777d66..77f944c 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -25,7 +25,6 @@ foreach event [bind all] {
    bind all $event {}
 }
 
-
 proc unsetBindings {} {
     bind all <Enter> {}
     bind Test <Enter> {}
@@ -2172,6 +2171,38 @@ test bind-16.44 {ExpandPercents procedure} -setup {
     destroy .t.f
 } -result {?? ??}
 
+test bind-16.45 {ExpandPercents procedure} -setup {
+  entry .t.e
+  pack .t.e
+  focus -force .t.e
+  foreach p [event info] {event delete $p}
+  update
+} -body {
+    bind .t.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 .t.e <Key-a>
+    list $x $y $z
+} -cleanup {
+    destroy .t.e
+} -result {0 1 2}
+test bind-16.46 {ExpandPercents procedure} -setup {
+  entry .t.e
+  pack .t.e
+  focus -force .t.e
+  foreach p [event info] {event delete $p}
+  update
+} -body {
+    bind all <Key> {set z "%M"}
+    bind Entry <Key> {set y "%M"}
+    bind .t.e <Key> {set x "%M"}
+    set x none; set y none; set z none
+    event gen .t.e <Key-a>
+    list $x $y $z
+} -cleanup {
+    destroy .t.e
+} -result {0 1 2}
 
 test bind-17.1 {event command} -body {
     event