diff options
| author | jingham <jingham> | 1999-05-22 06:33:38 (GMT) |
|---|---|---|
| committer | jingham <jingham> | 1999-05-22 06:33:38 (GMT) |
| commit | eb02b7f4b5f03cf0252e0733efdebf890095f57c (patch) | |
| tree | 08690563c402052345246f896205236bfc84d20f /mac/tkMacSend.c | |
| parent | 49264adc083f7766a5ff40538126526a6a8880c0 (diff) | |
| download | tk-eb02b7f4b5f03cf0252e0733efdebf890095f57c.zip tk-eb02b7f4b5f03cf0252e0733efdebf890095f57c.tar.gz tk-eb02b7f4b5f03cf0252e0733efdebf890095f57c.tar.bz2 | |
Changes needed to get Tk8.1 to compile with stubs on the Mac
Diffstat (limited to 'mac/tkMacSend.c')
| -rw-r--r-- | mac/tkMacSend.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mac/tkMacSend.c b/mac/tkMacSend.c index 1bc27a4..3884415 100644 --- a/mac/tkMacSend.c +++ b/mac/tkMacSend.c @@ -31,7 +31,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacSend.c,v 1.3 1999/04/16 01:51:32 stanton Exp $ + * RCS: @(#) $Id: tkMacSend.c,v 1.4 1999/05/22 06:35:10 jingham Exp $ */ #include <Gestalt.h> @@ -433,14 +433,14 @@ Tk_SendObjCmd( * parser is faster. */ - result = Tcl_EvalObj(localInterp, objv[firstArg], TCL_EVAL_DIRECT); + result = Tcl_EvalObjEx(localInterp, objv[firstArg], TCL_EVAL_DIRECT); } else { listObjPtr = Tcl_NewListObj(0, (Tcl_Obj **) NULL); for (i = firstArg; i < objc; i++) { Tcl_ListObjAppendList(interp, listObjPtr, objv[i]); } Tcl_IncrRefCount(listObjPtr); - result = Tcl_EvalObj(localInterp, listObjPtr, TCL_EVAL_DIRECT); + result = Tcl_EvalObjEx(localInterp, listObjPtr, TCL_EVAL_DIRECT); Tcl_DecrRefCount(listObjPtr); } if (interp != localInterp) { |