Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | add selected tk upstream changes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a78599ba2a6c4bf07de7fe6367f66461 |
| User & Date: | chw 2019-09-10 07:31:11.303 |
Context
|
2019-09-10
| ||
| 07:31 | add selected tcl upstream changes check-in: 14be88eae4 user: chw tags: trunk | |
| 07:31 | add selected tk upstream changes check-in: a78599ba2a user: chw tags: trunk | |
|
2019-09-09
| ||
| 07:14 | add selected tcl upstream changes check-in: be205a221e user: chw tags: trunk | |
Changes
Changes to jni/sdl2tk/macosx/tkMacOSXWm.c.
| ︙ | ︙ | |||
5826 5827 5828 5829 5830 5831 5832 |
NSString *idString;
NSWindow *win = TkMacOSXDrawableWindow(winPtr->window);
if (win) {
idString = win.tabbingIdentifier;
result = Tcl_NewStringObj(idString.UTF8String, [idString length]);
}
if (result == NULL) {
| | | 5826 5827 5828 5829 5830 5831 5832 5833 5834 5835 5836 5837 5838 5839 5840 |
NSString *idString;
NSWindow *win = TkMacOSXDrawableWindow(winPtr->window);
if (win) {
idString = win.tabbingIdentifier;
result = Tcl_NewStringObj(idString.UTF8String, [idString length]);
}
if (result == NULL) {
NSLog(@"Failed to read tabbing identifier; try calling update idletasks before getting/setting the tabbing identifier of the window.");
return TCL_OK;
}
Tcl_SetObjResult(interp, result);
if (objc == 3) {
return TCL_OK;
} else if (objc == 4) {
int len;
|
| ︙ | ︙ | |||
5927 5928 5929 5930 5931 5932 5933 |
resultString = appearanceStrings[APPEARANCE_DARKAQUA];
}
#endif // MAC_OS_X_VERSION_MAX_ALLOWED >= 101400
}
result = Tcl_NewStringObj(resultString, strlen(resultString));
}
if (result == NULL) {
| | | 5927 5928 5929 5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 |
resultString = appearanceStrings[APPEARANCE_DARKAQUA];
}
#endif // MAC_OS_X_VERSION_MAX_ALLOWED >= 101400
}
result = Tcl_NewStringObj(resultString, strlen(resultString));
}
if (result == NULL) {
NSLog(@"Failed to read appearance name; try calling update idletasks before getting/setting the appearance of the window.");
return TCL_OK;
}
if (objc == 4) {
int index;
if (Tcl_GetIndexFromObjStruct(interp, objv[3], appearanceStrings,
sizeof(char *), "appearancename", 0, &index) != TCL_OK) {
return TCL_ERROR;
|
| ︙ | ︙ |