diff options
| author | jingham <jingham@noemail.net> | 1999-05-22 06:33:37 (GMT) |
|---|---|---|
| committer | jingham <jingham@noemail.net> | 1999-05-22 06:33:37 (GMT) |
| commit | 0b7c80cd353ecf90f4bfcfe4fde4c2fb7c46b02f (patch) | |
| tree | 08690563c402052345246f896205236bfc84d20f /mac/tkMacSend.c | |
| parent | 59f52fdd187af7bc8697f70d205ab1bac757bce5 (diff) | |
| download | tk-0b7c80cd353ecf90f4bfcfe4fde4c2fb7c46b02f.zip tk-0b7c80cd353ecf90f4bfcfe4fde4c2fb7c46b02f.tar.gz tk-0b7c80cd353ecf90f4bfcfe4fde4c2fb7c46b02f.tar.bz2 | |
Changes needed to get Tk8.1 to compile with stubs on the Mac
FossilOrigin-Name: 080517556d57d83f5f5b3bfcc914b3c59a341b1d
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) { |