diff options
author | dgp <dgp@users.sourceforge.net> | 2019-05-15 17:16:15 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-05-15 17:16:15 (GMT) |
commit | 1673645f691d6a028123a612d5476541b8305d91 (patch) | |
tree | 997fdd527429a66e102d778bb8ad17196245fb28 /tests/menubut.test | |
parent | 9c596d150ad96b9e928fb86d4dad82ebfcefa2d2 (diff) | |
download | tk-1673645f691d6a028123a612d5476541b8305d91.zip tk-1673645f691d6a028123a612d5476541b8305d91.tar.gz tk-1673645f691d6a028123a612d5476541b8305d91.tar.bz2 |
Tests and fix for [menubutton ... -textvariable].
Diffstat (limited to 'tests/menubut.test')
-rw-r--r-- | tests/menubut.test | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/menubut.test b/tests/menubut.test index 6efdb0f..93b2482 100644 --- a/tests/menubut.test +++ b/tests/menubut.test @@ -747,6 +747,34 @@ test menubutton-8.1 {menubutton vs hidden commands} -body { expr {$res1 eq $res2} } -result 1 +test menubutton-9.1 {Bug [5d991b822e]} { + # Want this not to segfault, or write to variable with empty name + set var INIT + menubutton .b -textvariable var + trace add variable var unset {apply {args { + .b configure -textvariable {} + }}} + pack .b + bind .b <Configure> {unset var} + update + destroy .b + info exists {} +} 0 +test menubutton-9.2 {Bug [5d991b822e]} { + # Want this not to leak traces + set var INIT + menubutton .b -textvariable var + trace add variable var unset {apply {args { + .b configure -textvariable new + }}} + pack .b + bind .b <Configure> {unset -nocomplain var} + update + destroy .b + unset new +} {} + + deleteWindows |