From: Martin v. Löwis <martin@v.loewis.de>
Date: Sat, 7 Jun 2003 19:52:38 +0000 (+0000)
Subject: Patch #749191: Delete commands in after_cancel. Will backport to 2.2.
X-Git-Tag: v2.3c1~526
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0f9e525bdffd3ac25256462a14806956434caeb6;p=thirdparty%2FPython%2Fcpython.git

Patch #749191: Delete commands in after_cancel. Will backport to 2.2.
---

diff --git a/Lib/lib-tk/Tkinter.py b/Lib/lib-tk/Tkinter.py
index 2025ba84b8d3..11dae120d4d2 100644
--- a/Lib/lib-tk/Tkinter.py
+++ b/Lib/lib-tk/Tkinter.py
@@ -474,6 +474,12 @@ class Misc:
 
         Identifier returned by after or after_idle must be
         given as first parameter."""
+        try:
+            (script, type) = self.tk.splitlist(
+                self.tk.call('after', 'info', id))
+            self.deletecommand(script)
+        except TclError:
+            pass
         self.tk.call('after', 'cancel', id)
     def bell(self, displayof=0):
         """Ring a display's bell."""