summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2009-04-10 16:00:12 (GMT)
committerdas <das>2009-04-10 16:00:12 (GMT)
commit7e8f3721cfd6fd8c1dff4e489d5549ee1421cf29 (patch)
treec2a02868efb0873432ea6bdcf3be9dc93515c5df /generic
parent3e348841279c666655027f81674d30e841d75322 (diff)
downloadtk-7e8f3721cfd6fd8c1dff4e489d5549ee1421cf29.zip
tk-7e8f3721cfd6fd8c1dff4e489d5549ee1421cf29.tar.gz
tk-7e8f3721cfd6fd8c1dff4e489d5549ee1421cf29.tar.bz2
* generic/tkUtil.c (TkBackgroundEvalObjv): use Tcl_BackgroundException.
Diffstat (limited to 'generic')
-rw-r--r--generic/tkUtil.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkUtil.c b/generic/tkUtil.c
index 3c3b5f8..ffa392f 100644
--- a/generic/tkUtil.c
+++ b/generic/tkUtil.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkUtil.c,v 1.28 2009/02/06 08:12:07 das Exp $
+ * RCS: @(#) $Id: tkUtil.c,v 1.29 2009/04/10 16:00:12 das Exp $
*/
#include "tkInt.h"
@@ -1035,7 +1035,7 @@ TkBackgroundEvalObjv(
}
if (r == TCL_ERROR) {
Tcl_AddErrorInfo(interp, "\n (background event handler)");
- Tcl_BackgroundError(interp);
+ Tcl_BackgroundException(interp, r);
}
Tcl_Release(interp);