[Python-checkins] python/dist/src/Lib/lib-tk Tkinter.py,1.160.10.3,1.160.10.4

[loewis@users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Lib/lib-tk
In directory sc8-pr-cvs1:/tmp/cvs-serv1460

Modified Files:
      Tag: release22-maint
	Tkinter.py 
Log Message:
Patch #749191: Delete commands in after_cancel.


Index: Tkinter.py
===================================================================
RCS file: /cvsroot/python/python/dist/src/Lib/lib-tk/Tkinter.py,v
retrieving revision 1.160.10.3
retrieving revision 1.160.10.4
diff -C2 -d -r1.160.10.3 -r1.160.10.4
*** Tkinter.py	29 Mar 2003 09:48:12 -0000	1.160.10.3
--- Tkinter.py	7 Jun 2003 19:53:55 -0000	1.160.10.4
***************
*** 455,458 ****
--- 455,464 ----
          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):