summaryrefslogtreecommitdiffstats
path: root/tests/spinbox.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-12-19 21:58:57 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-12-19 21:58:57 (GMT)
commit545a4416a85546b7b713c06ed8ca42c6932b9887 (patch)
tree6830d61138a83318c3dc2d395aefeed89c1b41b4 /tests/spinbox.test
parentf4326da1c63ed8d0421a5d315255f2b2c402328e (diff)
parent7310553ebcfd9493614bbc345b30b0a747bef92d (diff)
downloadtk-545a4416a85546b7b713c06ed8ca42c6932b9887.zip
tk-545a4416a85546b7b713c06ed8ca42c6932b9887.tar.gz
tk-545a4416a85546b7b713c06ed8ca42c6932b9887.tar.bz2
Fixed bug [1700065] - error in trace proc on textvariable doesn't trigger bgerror
Diffstat (limited to 'tests/spinbox.test')
-rw-r--r--tests/spinbox.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/spinbox.test b/tests/spinbox.test
index 0661635..5fba390 100644
--- a/tests/spinbox.test
+++ b/tests/spinbox.test
@@ -1583,6 +1583,22 @@ test spinbox-23.1 {selection present while disabled, bug 637828} {
} {1 1 345}
destroy .e
+
+test spinbox-24.1 {error in trace proc attached to the textvariable} {
+ destroy .s
+ trace variable myvar w traceit
+ proc traceit args {error "Intentional error here!"}
+ spinbox .s -textvariable myvar -from 1 -to 10
+ catch {.s set mystring} result1
+ catch {.s insert 0 mystring} result2
+ catch {.s delete 0} result3
+ catch {.s invoke buttonup} result4
+ list $result1 $result2 $result3 $result4
+} [list {can't set "myvar": Intentional error here!} \
+ {can't set "myvar": Intentional error here!} \
+ {can't set "myvar": Intentional error here!} \
+ {can't set "myvar": Intentional error here!}]
+
catch {unset ::e ::vVals}
##