Tk Source Code

Check-in [d3a347d2]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:[450bb0ecad] Fix corruption [tk busy] creates on OSX.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA1: d3a347d2af510a762915f4c9abe97ca1f17869e1
User & Date: dgp 2016-07-21 20:08:50
Context
2016-07-26
14:00
[5660d11c3f] Fix new -lmargincolor check-in: 0a3246ac user: dgp tags: core-8-6-branch
09:36
merged core-8-6-branch check-in: 962d6e22 user: fvogel tags: tip-443, bug-5660d11c3f
2016-07-22
12:40
[450bb0ecad] Fix corruption [tk busy] creates on OSX. check-in: 56bccbf4 user: dgp tags: trunk
2016-07-21
20:09
merge 8.6 check-in: dcc49ecf user: dgp tags: core-8-6-6-rc
20:08
[450bb0ecad] Fix corruption [tk busy] creates on OSX. check-in: d3a347d2 user: dgp tags: core-8-6-branch
20:06
merge 8.6 Closed-Leaf check-in: 0cb77e7f user: dgp tags: bug-450bb0ecad
2016-07-19
23:48
Final tweak for OS X wm crash, thanks to Marc Culler check-in: 30856df3 user: kevin_walzer tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkBusy.c.

428
429
430
431
432
433
434




435
436
437
438
439
440
441
    }

    /*
     * Create a transparent window and put it on top.
     */

    TkpMakeTransparentWindowExist(tkwin, parent);





    dispPtr = winPtr->dispPtr;
    hPtr = Tcl_CreateHashEntry(&dispPtr->winTable, (char *) winPtr->window,
	    &notUsed);
    Tcl_SetHashValue(hPtr, winPtr);
    winPtr->dirtyAtts = 0;
    winPtr->dirtyChanges = 0;






>
>
>
>







428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
    }

    /*
     * Create a transparent window and put it on top.
     */

    TkpMakeTransparentWindowExist(tkwin, parent);

    if (winPtr->window == None) {
	return;			/* Platform didn't make Window. */
    }

    dispPtr = winPtr->dispPtr;
    hPtr = Tcl_CreateHashEntry(&dispPtr->winTable, (char *) winPtr->window,
	    &notUsed);
    Tcl_SetHashValue(hPtr, winPtr);
    winPtr->dirtyAtts = 0;
    winPtr->dirtyChanges = 0;

Changes to generic/tkWindow.c.

2346
2347
2348
2349
2350
2351
2352



2353
2354
2355
2356
2357
2358
2359
    for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) {
	if (dispPtr == NULL) {
	    return NULL;
	}
	if (dispPtr->display == display) {
	    break;
	}



    }

    hPtr = Tcl_FindHashEntry(&dispPtr->winTable, (char *) window);
    if (hPtr == NULL) {
	return NULL;
    }
    return Tcl_GetHashValue(hPtr);






>
>
>







2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
    for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) {
	if (dispPtr == NULL) {
	    return NULL;
	}
	if (dispPtr->display == display) {
	    break;
	}
    }
    if (window == None) {
	return NULL;
    }

    hPtr = Tcl_FindHashEntry(&dispPtr->winTable, (char *) window);
    if (hPtr == NULL) {
	return NULL;
    }
    return Tcl_GetHashValue(hPtr);