diff options
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/menu.test b/tests/menu.test index a27e158..152d2f4 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -3347,7 +3347,8 @@ test menu-20.12 {CloneMenu - copied bindings on empty menu} -setup { } -body { menu .m1 -tearoff 0 bind .m1 <<Test>> {append x <<Test>>} - .m1 clone .m2 + .m1 clone .m2 tearoff + .m2 post 100 100 event generate .m2 <<Test>> return $x } -result {<<Test>>} @@ -3357,7 +3358,8 @@ test menu-20.13 {CloneMenu - copied bindings on non-empty menu} -setup { } -body { menu .m1 -tearoff 1 bind .m1 <<Test>> {append x <<Test>>} - .m1 clone .m2 + .m1 clone .m2 tearoff + .m2 post 100 100 event generate .m2 <<Test>> return $x } -result {<<Test>>} @@ -3366,7 +3368,8 @@ test menu-20.14 {CloneMenu - new binding on empty menu} -setup { set x {} } -body { menu .m1 -tearoff 0 - .m1 clone .m2 + .m1 clone .m2 tearoff + .m2 post 100 100 bind .m1 <<Test>> {append x <<Test>>} event generate .m2 <<Test>> return $x @@ -3376,7 +3379,8 @@ test menu-20.15 {CloneMenu - new binding on non-empty menu} -setup { set x {} } -body { menu .m1 -tearoff 1 - .m1 clone .m2 + .m1 clone .m2 tearoff + .m2 post 100 100 bind .m1 <<Test>> {append x <<Test>>} event generate .m2 <<Test>> return $x |