diff options
| author | stanton <stanton> | 1998-11-25 23:06:57 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-11-25 23:06:57 (GMT) |
| commit | 7c3d58fd92af17b9457efe9d4d352138d92ae70b (patch) | |
| tree | 2bb332c4cad110e5cb8695a2a24a9d8afbaab1ee | |
| parent | b40ea56cfb2caa157a3364cff0764f5dcefd3283 (diff) | |
| download | tk-7c3d58fd92af17b9457efe9d4d352138d92ae70b.zip tk-7c3d58fd92af17b9457efe9d4d352138d92ae70b.tar.gz tk-7c3d58fd92af17b9457efe9d4d352138d92ae70b.tar.bz2 | |
* mac/tkMacHLEvents.c (OdocHandler): added conversion from
external string to UTF [Bug: 869]
| -rw-r--r-- | mac/tkMacHLEvents.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/mac/tkMacHLEvents.c b/mac/tkMacHLEvents.c index e767cba..5c3a580 100644 --- a/mac/tkMacHLEvents.c +++ b/mac/tkMacHLEvents.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacHLEvents.c,v 1.1.4.2 1998/09/30 02:18:08 stanton Exp $ + * RCS: @(#) $Id: tkMacHLEvents.c,v 1.1.4.3 1998/11/25 23:06:57 stanton Exp $ */ #include "tcl.h" @@ -228,13 +228,11 @@ OdocHandler( } Tcl_DStringInit(&command); - Tcl_DStringInit(&pathName); Tcl_DStringAppend(&command, "tkOpenDocument", -1); for (index = 1; index <= count; index++) { int length; Handle fullPath; - Tcl_DStringSetLength(&pathName, 0); err = AEGetNthPtr(&fileSpecList, index, typeFSS, &keyword, &type, (Ptr) &file, sizeof(FSSpec), &actual); if ( err != noErr ) { @@ -243,17 +241,17 @@ OdocHandler( err = FSpPathFromLocation(&file, &length, &fullPath); HLock(fullPath); - Tcl_DStringAppend(&pathName, *fullPath, length); + Tcl_ExternalToUtfDString(NULL, *fullPath, length, &pathName); HUnlock(fullPath); DisposeHandle(fullPath); - Tcl_DStringAppendElement(&command, pathName.string); + Tcl_DStringAppendElement(&command, Tcl_DStringValue(&pathName)); + Tcl_DStringFree(&pathName); } - Tcl_GlobalEval(interp, command.string); + Tcl_GlobalEval(interp, Tcl_DStringValue(&command)); Tcl_DStringFree(&command); - Tcl_DStringFree(&pathName); return noErr; } |