diff options
| author | sbron <sbron@tclcode.com> | 2023-03-26 10:51:41 (GMT) |
|---|---|---|
| committer | sbron <sbron@tclcode.com> | 2023-03-26 10:51:41 (GMT) |
| commit | 78d9a8d03c9e9e435ad5a38a379addef0b65d636 (patch) | |
| tree | d2e3def1cab9f7cfbe8c916849cb8f642acbd21c /tests/menu.test | |
| parent | 5cce831f67705a4be1cb95748567d83f473f6e99 (diff) | |
| download | tk-78d9a8d03c9e9e435ad5a38a379addef0b65d636.zip tk-78d9a8d03c9e9e435ad5a38a379addef0b65d636.tar.gz tk-78d9a8d03c9e9e435ad5a38a379addef0b65d636.tar.bz2 | |
Make the clone inherit the bindtags from the original menu.
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/menu.test b/tests/menu.test index 901c253..a27e158 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -3381,6 +3381,14 @@ test menu-20.15 {CloneMenu - new binding on non-empty menu} -setup { event generate .m2 <<Test>> return $x } -result {<<Test>>} +test menu-20.16 {CloneMenu - bindtags} -setup { + deleteWindows +} -body { + menu .m1 + bindtags .m1 [linsert [bindtags .m1] 1 .m1.sub1] + .m1 clone .m2 + bindtags .m2 +} -result {.m2 .m1 .m1.sub1 Menu all} test menu-21.1 {MenuDoYPosition} -setup { deleteWindows |