Tk Source Code

Check-in [962d6e22]
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:merged core-8-6-branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-443 | bug-5660d11c3f
Files: files | file ages | folders
SHA1: 962d6e22fb05087df452277eea51b3a638cd7e51
User & Date: fvogel 2016-07-26 09:36:31
Context
2016-07-29
19:28
Clarified documentation about precedence of color specifications: -[lr]margincolor tag option > -background tag option > -background widget option check-in: 9dbcde85 user: fvogel tags: tip-443, bug-5660d11c3f
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
09:30
Fixed [5660d11c3f] - text tag -background option overrules -lmargincolor check-in: 316b16bd user: fvogel tags: tip-443, bug-5660d11c3f
2016-07-21
20:08
[450bb0ecad] Fix corruption [tk busy] creates on OSX. check-in: d3a347d2 user: dgp 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);