diff options
| author | fvogel <fvogel@noemail.net> | 2016-03-07 07:25:34 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-03-07 07:25:34 (GMT) |
| commit | 79ff2a7646c798fbfa842468fa94d89431c9d4a1 (patch) | |
| tree | 037982f1b92e84ad64a957abecd2224990078b67 /library | |
| parent | 8992ff1d210db8969037098facbb35d3937fcb2d (diff) | |
| download | tk-79ff2a7646c798fbfa842468fa94d89431c9d4a1.zip tk-79ff2a7646c798fbfa842468fa94d89431c9d4a1.tar.gz tk-79ff2a7646c798fbfa842468fa94d89431c9d4a1.tar.bz2 | |
Fixed bug [3137232] - spinbox error after destroying toplevel from widget (cherrypicked [e6d91ca077]
FossilOrigin-Name: 63a8ceeac60068e1b7af4ff830f6b4c55cd59ffd
Diffstat (limited to 'library')
| -rw-r--r-- | library/spinbox.tcl | 4 |
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) |