diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-16 09:18:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-16 09:18:45 (GMT) |
| commit | 9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f (patch) | |
| tree | e18d0330f474c0037d69499dd4ccbc505b1203a8 /tests/menu.test | |
| parent | cdb0df2ccb91f62869444148376ce5889bd755b3 (diff) | |
| parent | cdf0d2aad93208954b01d2446181854ba1221482 (diff) | |
| download | tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.zip tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.tar.gz tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/menu.test')
| -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 87d8a9e..e428e5e 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -3170,6 +3170,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 { |