Check-in [b18936dce6]
Not logged in

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: b18936dce6fbad8956d1ab5fc9063f4c80255cac
User & Date: chw 2019-06-21 05:00:03
Context
2019-06-21
05:04
add tcl upstream changes check-in: 45517af94f user: chw tags: trunk
05:00
add selected tk upstream changes check-in: b18936dce6 user: chw tags: trunk
04:55
improve twv examples check-in: a817a75a56 user: chw tags: trunk
Changes

Changes to jni/sdl2tk/win/tkWinInit.c.

195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
    }

    if ((p = _tcsrchr(lpBuffer, TEXT('\r'))) != NULL) {
	*p = TEXT('\0');
    }

#ifdef _UNICODE
    Tcl_WinTCharToUtf(lpBuffer, wcslen(lpBuffer) * sizeof (WCHAR), &ds);
    errPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds));
    Tcl_DStringFree(&ds);
#else
    errPtr = Tcl_NewStringObj(lpBuffer, (int)strlen(lpBuffer));
#endif /* _UNICODE */

    if (lpBuffer != sBuffer) {







|







195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
    }

    if ((p = _tcsrchr(lpBuffer, TEXT('\r'))) != NULL) {
	*p = TEXT('\0');
    }

#ifdef _UNICODE
    Tcl_WinTCharToUtf(lpBuffer, -1, &ds);
    errPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds));
    Tcl_DStringFree(&ds);
#else
    errPtr = Tcl_NewStringObj(lpBuffer, (int)strlen(lpBuffer));
#endif /* _UNICODE */

    if (lpBuffer != sBuffer) {