summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-12-21 23:55:36 (GMT)
committerhobbs <hobbs>1999-12-21 23:55:36 (GMT)
commitc825211c4960e2bda75e66a19f82c29cf2920e76 (patch)
tree8440d77d027cdd267529fc21a07d94dba0fa7403 /mac
parent384f2fdb951097343c99a19f554df9a681dfc06f (diff)
downloadtk-c825211c4960e2bda75e66a19f82c29cf2920e76.zip
tk-c825211c4960e2bda75e66a19f82c29cf2920e76.tar.gz
tk-c825211c4960e2bda75e66a19f82c29cf2920e76.tar.bz2
* mac/tclMacHLEvents.c: fixed applescript for I18N [Bug: 3644]
Diffstat (limited to 'mac')
-rw-r--r--mac/tkMacHLEvents.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/mac/tkMacHLEvents.c b/mac/tkMacHLEvents.c
index f86d2fa..b8604d8 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.3 1999/04/16 01:51:31 stanton Exp $
+ * RCS: @(#) $Id: tkMacHLEvents.c,v 1.4 1999/12/21 23:55:36 hobbs Exp $
*/
#include "tcl.h"
@@ -310,6 +310,7 @@ ScriptHandler(
theErr = -1771;
} else {
if (theDesc.descriptorType == (DescType)'TEXT') {
+ Tcl_DString encodedText;
short length, i;
length = GetHandleSize(theDesc.dataHandle);
@@ -322,7 +323,10 @@ ScriptHandler(
}
HLock(theDesc.dataHandle);
- tclErr = Tcl_GlobalEval(interp, *theDesc.dataHandle);
+ Tcl_ExternalToUtfDString(NULL, *theDesc.dataHandle, length,
+ &encodedText);
+ tclErr = Tcl_GlobalEval(interp, Tcl_DStringValue(&encodedText));
+ Tcl_DStringFree(&encodedText);
HUnlock(theDesc.dataHandle);
} else if (theDesc.descriptorType == (DescType)'alis') {
Boolean dummy;