summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2006-05-25 23:49:32 (GMT)
committerhobbs <hobbs>2006-05-25 23:49:32 (GMT)
commit26ced7d8e368ee96427af60e3f6e762e5e9391a8 (patch)
treeb8211f39d0c7e61fe17cc517522bf92eaf45cf99 /generic
parent66be2b0aca94a837a573e450a565f1bf74a3519b (diff)
downloadtk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.zip
tk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.tar.gz
tk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.tar.bz2
* generic/tkBind.c (Tk_BindEvent, TkCopyAndGlobalEval): use
Tcl_EvalEx instead of Tcl_GlobalEval.
Diffstat (limited to 'generic')
-rw-r--r--generic/tkBind.c10
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c
index 2b1be76..1fa637e 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkBind.c,v 1.39 2005/11/17 10:57:35 dkf Exp $
+ * RCS: @(#) $Id: tkBind.c,v 1.40 2006/05/25 23:49:32 hobbs Exp $
*/
#include "tkPort.h"
@@ -1768,8 +1768,9 @@ Tk_BindEvent(
ckfree((char *) psPtr);
}
} else {
- code = Tcl_GlobalEval(interp, p);
- p += strlen(p);
+ int len = (int) strlen(p);
+ code = Tcl_EvalEx(interp, p, len, TCL_EVAL_GLOBAL);
+ p += len;
}
p++;
@@ -4655,7 +4656,8 @@ TkCopyAndGlobalEval(
Tcl_DStringInit(&buffer);
Tcl_DStringAppend(&buffer, script, -1);
- code = Tcl_GlobalEval(interp, Tcl_DStringValue(&buffer));
+ code = Tcl_EvalEx(interp, Tcl_DStringValue(&buffer),
+ Tcl_DStringLength(&buffer), TCL_EVAL_GLOBAL);
Tcl_DStringFree(&buffer);
return code;
}