diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-15 18:05:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-15 18:05:47 (GMT) |
| commit | 273f03adcc49bca49f4941c8adb241b5ccc26c25 (patch) | |
| tree | 4f0c7c023f723c39c34497f0c11a39407ba8e7f3 /tests | |
| parent | aefe754799655f3fa04cc84f4ea5d110d0289c46 (diff) | |
| download | tk-273f03adcc49bca49f4941c8adb241b5ccc26c25.zip tk-273f03adcc49bca49f4941c8adb241b5ccc26c25.tar.gz tk-273f03adcc49bca49f4941c8adb241b5ccc26c25.tar.bz2 | |
Tests and fix for similar issues in [menu].
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/menu.test | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/menu.test b/tests/menu.test index 95699ff..9378686 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -3162,6 +3162,34 @@ test menu-17.5 {MenuVarProc} -setup { } -cleanup { deleteWindows } -result {{} goodbye {}} +test menu-17.6 {MenuVarProc [5d991b822e]} -setup { + deleteWindows +} -body { + # Want this not to crash + menu .b + set var INIT + .b add checkbutton -variable var + trace add variable var unset {apply {args { + .b entryconfigure 1 -variable {} + }}} + unset var +} -cleanup { + deleteWindows +} -result {} +test menu-17.7 {MenuVarProc [5d991b822e]} -setup { + deleteWindows +} -body { + # Want this not to duplicate traces + menu .b + set var INIT + .b add checkbutton -variable var + trace add variable var unset {apply {args { + .b entryconfigure 1 -variable new + }}} + unset var +} -cleanup { + deleteWindows +} -result {} test menu-18.1 {TkActivateMenuEntry} -setup { |