ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Imported Tk 8.6.9

Browse Source
This commit is contained in:
Steve Dower
2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
macosx/tkMacOSXHLEvents.c
View File

@@ -279,7 +279,7 @@ tkMacOSXProcessFiles(
Tcl_Interp *interp,
const char* procedure)
{
Tcl_Encoding utf8 = Tcl_GetEncoding(NULL, "utf-8");
Tcl_Encoding utf8;
const AEDesc *fileSpecDesc = nil;
AEDesc contents;
char URLString[1 + URL_MAX_LENGTH];
@@ -331,6 +331,7 @@ tkMacOSXProcessFiles(
Tcl_DStringInit(&command);
Tcl_DStringAppend(&command, procedure, -1);
utf8 = Tcl_GetEncoding(NULL, "utf-8");
for (index = 1; index <= count; index++) {
if (noErr != AEGetNthPtr(fileSpecDesc, index, typeFileURL, &keyword,
@@ -349,6 +350,8 @@ tkMacOSXProcessFiles(
Tcl_DStringAppendElement(&command, Tcl_DStringValue(&pathName));
Tcl_DStringFree(&pathName);
}
Tcl_FreeEncoding(utf8);
AEDisposeDesc(&contents);
/*
@@ -361,7 +364,6 @@ tkMacOSXProcessFiles(
Tcl_BackgroundException(interp, code);
}
Tcl_DStringFree(&command);
return;
}
/*