diff options
author | seandeelywoods <seandeelywoods> | 2015-03-13 23:10:18 (GMT) |
---|---|---|
committer | seandeelywoods <seandeelywoods> | 2015-03-13 23:10:18 (GMT) |
commit | 20c81b194394bb6ea16d1831f6f895b63477819c (patch) | |
tree | 7b09fcdd831c2965e1caa2304724ede4c8ccd260 /macosx/tkMacOSXHLEvents.c | |
parent | b08252af5c9e7fd54402875ba3e86123d0911154 (diff) | |
parent | ea4c865b315c006abca19443f5c06ec5d06e2421 (diff) | |
download | tk-20c81b194394bb6ea16d1831f6f895b63477819c.zip tk-20c81b194394bb6ea16d1831f6f895b63477819c.tar.gz tk-20c81b194394bb6ea16d1831f6f895b63477819c.tar.bz2 |
Merging with the latest release
Diffstat (limited to 'macosx/tkMacOSXHLEvents.c')
-rw-r--r-- | macosx/tkMacOSXHLEvents.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/macosx/tkMacOSXHLEvents.c b/macosx/tkMacOSXHLEvents.c index 8d51c33..daf860f 100644 --- a/macosx/tkMacOSXHLEvents.c +++ b/macosx/tkMacOSXHLEvents.c @@ -217,7 +217,6 @@ OappHandler( AppleEvent *reply, SRefCon handlerRefcon) { - Tcl_CmdInfo dummy; Tcl_Interp *interp = (Tcl_Interp *) handlerRefcon; if (interp && @@ -289,7 +288,6 @@ PrefsHandler( AppleEvent *reply, SRefCon handlerRefcon) { - Tcl_CmdInfo dummy; Tcl_Interp *interp = (Tcl_Interp *) handlerRefcon; if (interp && @@ -422,7 +420,6 @@ PrintHandler( long count, index; AEKeyword keyword; Tcl_DString command, pathName; - Tcl_CmdInfo dummy; int code; /* @@ -543,8 +540,12 @@ ScriptHandler( theErr = FSRefToDString(&file, &scriptName); if (theErr == noErr) { - tclErr = Tcl_FSEvalFileEx(interp, Tcl_DStringValue(&scriptName), NULL); + Tcl_Obj *pathName = + Tcl_NewStringObj(Tcl_DStringValue(&scriptName), -1); Tcl_DStringFree(&scriptName); + + tclErr = Tcl_FSEvalFile(interp, pathName); + Tcl_DecrRefCount(pathName); } else { sprintf(errString, "AEDoScriptHandler: file not found"); AEPutParamPtr(reply, keyErrorString, typeChar, errString, |