diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-02-12 13:45:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-02-12 13:45:52 (GMT) |
| commit | 186fd507fce8e72ceb25fa41cfe1c65429dd3398 (patch) | |
| tree | 76d87a1336cc0ae03ff1717e7404dbbed46f098f /macosx/tkMacOSXHLEvents.c | |
| parent | df8fe8d77386421fadafe0b14472529c573a3f8b (diff) | |
| parent | f0588ea6f1632841dfe7ed350ea5c0e78331882d (diff) | |
| download | tk-186fd507fce8e72ceb25fa41cfe1c65429dd3398.zip tk-186fd507fce8e72ceb25fa41cfe1c65429dd3398.tar.gz tk-186fd507fce8e72ceb25fa41cfe1c65429dd3398.tar.bz2 | |
Silence some compiler warnings.
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, |