From 3c8ec9fb51362438b77878fdd3bf159444907b6b Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Mon, 7 Mar 2016 07:25:34 +0000
Subject: Fixed bug [3137232] - spinbox error after destroying toplevel from
 widget (cherrypicked [e6d91ca077]

---
 library/spinbox.tcl | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
cgit v0.12