Tk Source Code

Check-in [556f6ed6]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Eliminate warning, when compiling with 9.0 Tcl headers on Windows
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 556f6ed6d8f0e46c03bb757390f78f87f8b2b98955f0626c2bf86a2237214171
User & Date: jan.nijtmans 2019-06-25 15:25:54.072
Context
2019-06-25
21:30
Merge 8.6 check-in: 97844c5e user: jan.nijtmans tags: trunk
15:25
Eliminate warning, when compiling with 9.0 Tcl headers on Windows check-in: 556f6ed6 user: jan.nijtmans tags: trunk
2019-06-24
18:54
Remove unnecessary call to NSUpdateDynamicServices() which can cause crashes check-in: 348159fe user: culler tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to win/tkWinWm.c.
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
	Tcl_SetObjResult(interp, Tcl_NewStringObj(
		(wmPtr->iconName ? wmPtr->iconName : ""), -1));
	return TCL_OK;
    } else {
	if (wmPtr->iconName != NULL) {
	    ckfree(wmPtr->iconName);
	}
	argv3 = Tcl_GetStringFromObj(objv[3], &length);
	wmPtr->iconName = ckalloc(length + 1);
	memcpy(wmPtr->iconName, argv3, length + 1);
	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
	    XSetIconName(winPtr->display, winPtr->window, wmPtr->iconName);
	}
    }
    return TCL_OK;







|







4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
	Tcl_SetObjResult(interp, Tcl_NewStringObj(
		(wmPtr->iconName ? wmPtr->iconName : ""), -1));
	return TCL_OK;
    } else {
	if (wmPtr->iconName != NULL) {
	    ckfree(wmPtr->iconName);
	}
	argv3 = TkGetStringFromObj(objv[3], &length);
	wmPtr->iconName = ckalloc(length + 1);
	memcpy(wmPtr->iconName, argv3, length + 1);
	if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
	    XSetIconName(winPtr->display, winPtr->window, wmPtr->iconName);
	}
    }
    return TCL_OK;