Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Don't use -encoding "binary" any more in Tk |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
acd15597c1e4d2b2258e2c51b35f09f6 |
| User & Date: | jan.nijtmans 2024-06-24 21:44:23 |
Context
|
2024-06-25
| ||
| 21:18 | Merge-mark check-in: 26ced72f user: jan.nijtmans tags: core-8-branch | |
| 17:17 | Don't use -encoding "binary" any more in Tk. Backport some more formatting changes check-in: fbecadc0 user: jan.nijtmans tags: core-8-6-branch | |
|
2024-06-24
| ||
| 21:44 | Don't use -encoding "binary" any more in Tk check-in: 718193ab user: jan.nijtmans tags: trunk, main | |
| 21:44 | Don't use -encoding "binary" any more in Tk check-in: acd15597 user: jan.nijtmans tags: core-8-branch | |
|
2024-06-23
| ||
| 21:31 | Fix [610aa08858]: Crash when collapsing toplevel vertically on X11. Thanks to Emiliano Gavilan and Donal Fellows. Merge 8.6 check-in: 6be96c85 user: jan.nijtmans tags: core-8-branch | |
Changes
Changes to generic/tkImgBmap.c.
| ︙ | ︙ | |||
507 508 509 510 511 512 513 |
fileName, Tcl_PosixError(interp)));
}
return NULL;
}
if (Tcl_SetChannelOption(interp, pi.chan, "-translation", "binary")
!= TCL_OK) {
| < < < < | 507 508 509 510 511 512 513 514 515 516 517 518 519 520 |
fileName, Tcl_PosixError(interp)));
}
return NULL;
}
if (Tcl_SetChannelOption(interp, pi.chan, "-translation", "binary")
!= TCL_OK) {
return NULL;
}
} else {
pi.chan = NULL;
}
/*
|
| ︙ | ︙ |
Changes to generic/tkImgGIF.c.
| ︙ | ︙ | |||
1924 1925 1926 1927 1928 1929 1930 |
Tcl_Channel chan = NULL;
int result;
chan = Tcl_OpenFileChannel(interp, (char *) filename, "w", 0644);
if (!chan) {
return TCL_ERROR;
}
| | | | 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 |
Tcl_Channel chan = NULL;
int result;
chan = Tcl_OpenFileChannel(interp, (char *) filename, "w", 0644);
if (!chan) {
return TCL_ERROR;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
Tcl_Close(NULL, chan);
return TCL_ERROR;
}
result = CommonWriteGIF(interp, chan, WriteToChannel, format, metadataInObj,
blockPtr);
|
| ︙ | ︙ |
Changes to generic/tkImgPNG.c.
| ︙ | ︙ | |||
3761 3762 3763 3764 3765 3766 3767 |
*/
if (InitPNGImage(interp, &png, chan, NULL,
TCL_ZLIB_STREAM_DEFLATE) == TCL_ERROR) {
goto cleanup;
}
| < < < < < | | | 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 |
*/
if (InitPNGImage(interp, &png, chan, NULL,
TCL_ZLIB_STREAM_DEFLATE) == TCL_ERROR) {
goto cleanup;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
goto cleanup;
}
/*
* Write the raw PNG data out to the file.
*/
|
| ︙ | ︙ |
Changes to generic/tkImgPPM.c.
| ︙ | ︙ | |||
298 299 300 301 302 303 304 |
chan = Tcl_OpenFileChannel(interp, fileName, "w", 0666);
if (chan == NULL) {
return TCL_ERROR;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
| < < < < < | 298 299 300 301 302 303 304 305 306 307 308 309 310 311 |
chan = Tcl_OpenFileChannel(interp, fileName, "w", 0666);
if (chan == NULL) {
return TCL_ERROR;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
Tcl_Close(NULL, chan);
return TCL_ERROR;
}
snprintf(header, sizeof(header), "P6\n%d %d\n255\n", blockPtr->width, blockPtr->height);
Tcl_Write(chan, header, TCL_INDEX_NONE);
|
| ︙ | ︙ |
Changes to generic/tkImgPhoto.c.
| ︙ | ︙ | |||
1107 1108 1109 1110 1111 1112 1113 |
return TCL_ERROR;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
Tcl_Close(NULL, chan);
return TCL_ERROR;
}
| < < < < < | 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 |
return TCL_ERROR;
}
if (Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) {
Tcl_Close(NULL, chan);
return TCL_ERROR;
}
if (MatchFileFormat(interp, chan,
Tcl_GetString(options.name), options.format,
options.metadata, NULL, &imageFormat,
&imageFormatVersion3, &imageWidth, &imageHeight, &oldformat)
!= TCL_OK) {
result = TCL_ERROR;
|
| ︙ | ︙ | |||
2162 2163 2164 2165 2166 2167 2168 | /* * Flag that we want the metadata result dict */ metadataOutObj = Tcl_NewDictObj(); Tcl_IncrRefCount(metadataOutObj); | < < < < | | | 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 |
/*
* Flag that we want the metadata result dict
*/
metadataOutObj = Tcl_NewDictObj();
Tcl_IncrRefCount(metadataOutObj);
if ((Tcl_SetChannelOption(interp, chan, "-translation", "binary")
!= TCL_OK) ||
(MatchFileFormat(interp, chan, modelPtr->fileString,
modelPtr->format, modelPtr->metadata, metadataOutObj,
&imageFormat, &imageFormatVersion3,
&imageWidth, &imageHeight, &oldformat) != TCL_OK)) {
Tcl_Close(NULL, chan);
goto errorExit;
}
|
| ︙ | ︙ |
Changes to win/tkWinWm.c.
| ︙ | ︙ | |||
1429 1430 1431 1432 1433 1434 1435 |
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"error opening file \"%s\" for reading: %s",
Tcl_GetString(fileName), Tcl_PosixError(interp)));
return NULL;
}
if (Tcl_SetChannelOption(interp, channel, "-translation", "binary")
!= TCL_OK) {
| < < < < < | 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 |
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"error opening file \"%s\" for reading: %s",
Tcl_GetString(fileName), Tcl_PosixError(interp)));
return NULL;
}
if (Tcl_SetChannelOption(interp, channel, "-translation", "binary")
!= TCL_OK) {
Tcl_Close(NULL, channel);
return NULL;
}
/*
* Allocate memory for the resource structure
*/
|
| ︙ | ︙ |