summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorJoe Mistachkin <joe@mistachkin.com>2012-11-16 22:09:07 (GMT)
committerJoe Mistachkin <joe@mistachkin.com>2012-11-16 22:09:07 (GMT)
commit07f85cd3c1b4934fb746ea36516ba2944b4eea11 (patch)
treeea878e09a7e42b66499a3fa4f34fa6853c7cc251 /tests
parentf20590a5bfc2935ada0a9ce044fd8cecb2615fc2 (diff)
downloadtk-07f85cd3c1b4934fb746ea36516ba2944b4eea11.zip
tk-07f85cd3c1b4934fb746ea36516ba2944b4eea11.tar.gz
tk-07f85cd3c1b4934fb746ea36516ba2944b4eea11.tar.bz2
Add docs and tests.
Diffstat (limited to 'tests')
-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} {