summaryrefslogtreecommitdiffstats
path: root/library/spinbox.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-03-07 07:25:34 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-03-07 07:25:34 (GMT)
commit3c8ec9fb51362438b77878fdd3bf159444907b6b (patch)
tree037982f1b92e84ad64a957abecd2224990078b67 /library/spinbox.tcl
parent541afd67b14eda78412983afa2d15cb6194998ad (diff)
downloadtk-3c8ec9fb51362438b77878fdd3bf159444907b6b.zip
tk-3c8ec9fb51362438b77878fdd3bf159444907b6b.tar.gz
tk-3c8ec9fb51362438b77878fdd3bf159444907b6b.tar.bz2
Fixed bug [3137232] - spinbox error after destroying toplevel from widget (cherrypicked [e6d91ca077]
Diffstat (limited to 'library/spinbox.tcl')
-rw-r--r--library/spinbox.tcl4
1 files changed, 4 insertions, 0 deletions
diff --git a/library/spinbox.tcl b/library/spinbox.tcl
index 02584f4..fecf7d6 100644
--- a/library/spinbox.tcl
+++ b/library/spinbox.tcl
@@ -299,6 +299,10 @@ bind Spinbox <B2-Motion> {
proc ::tk::spinbox::Invoke {w elem} {
variable ::tk::Priv
+ if {![winfo exists $w]} {
+ return
+ }
+
if {![info exists Priv(outsideElement)]} {
$w invoke $elem
incr Priv(repeated)