diff options
| author | hobbs <hobbs> | 2006-05-25 23:49:32 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-05-25 23:49:32 (GMT) |
| commit | 26ced7d8e368ee96427af60e3f6e762e5e9391a8 (patch) | |
| tree | b8211f39d0c7e61fe17cc517522bf92eaf45cf99 | |
| parent | 66be2b0aca94a837a573e450a565f1bf74a3519b (diff) | |
| download | tk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.zip tk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.tar.gz tk-26ced7d8e368ee96427af60e3f6e762e5e9391a8.tar.bz2 | |
* generic/tkBind.c (Tk_BindEvent, TkCopyAndGlobalEval): use
Tcl_EvalEx instead of Tcl_GlobalEval.
| -rw-r--r-- | generic/tkBind.c | 10 |
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; } |