Tk Source Code

Changes On Branch bug-8da7af2f8e
Login

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

Changes In Branch bug-8da7af2f8e Excluding Merge-Ins

This is equivalent to a diff from 10d1cba6 to 949a29a1

2024-06-23
15:05
Fix typo in comment. check-in: edcb9db0 user: fvogel tags: core-8-6-branch
08:20
Fix typo in comment. Closed-Leaf check-in: 949a29a1 user: fvogel tags: bug-8da7af2f8e
08:14
Backout incorrect fix [d7b0c443], that created problem [a0dca39fd1]. check-in: 921bf608 user: fvogel tags: core-8-6-branch
08:13
Backout incorrect fix [d7b0c443], that created problem [a0dca39fd1]. check-in: 2509df95 user: fvogel tags: bug-8da7af2f8e
08:12
merge core-8-6-branch check-in: 8e6ac58c user: fvogel tags: bug-8da7af2f8e
2024-06-21
20:18
Updated the Widget Demo script cscroll.tcl. check-in: 7213b45f user: csaba tags: core-8-branch
20:10
Updated the Widget Demo script cscroll.tcl. check-in: 10d1cba6 user: csaba tags: core-8-6-branch
2024-06-18
08:30
Ticket [865af014]: add error message on corrupt gif file check-in: fc6f7369 user: oehhar tags: core-8-6-branch

Changes to generic/tkFont.c.

1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
	     * This is a stale reference: it refers to a TkFont that's no
	     * longer in use. Clear the reference.
	     */

	    FreeFontObj(objPtr);
	    fontPtr = NULL;
	} else if (Tk_Screen(tkwin) == fontPtr->screen) {
	    fontPtr->resourceRefCount++;
	    return (Tk_Font) fontPtr;
	}
    }

    /*
     * Next, search the list of fonts that have the name we want, to see if
     * one of them is for the right screen.







<







1323
1324
1325
1326
1327
1328
1329

1330
1331
1332
1333
1334
1335
1336
	     * This is a stale reference: it refers to a TkFont that's no
	     * longer in use. Clear the reference.
	     */

	    FreeFontObj(objPtr);
	    fontPtr = NULL;
	} else if (Tk_Screen(tkwin) == fontPtr->screen) {

	    return (Tk_Font) fontPtr;
	}
    }

    /*
     * Next, search the list of fonts that have the name we want, to see if
     * one of them is for the right screen.
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
 *----------------------------------------------------------------------
 */

Tcl_Obj *
TkDebugFont(
    Tk_Window tkwin,		/* The window in which the font will be used
				 * (not currently used). */
    const char *name)		/* Name of the desired color. */
{
    TkFont *fontPtr;
    Tcl_HashEntry *hashPtr;
    Tcl_Obj *resultPtr, *objPtr;

    resultPtr = Tcl_NewObj();
    hashPtr = Tcl_FindHashEntry(







|







4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
 *----------------------------------------------------------------------
 */

Tcl_Obj *
TkDebugFont(
    Tk_Window tkwin,		/* The window in which the font will be used
				 * (not currently used). */
    const char *name)		/* Name of the desired font. */
{
    TkFont *fontPtr;
    Tcl_HashEntry *hashPtr;
    Tcl_Obj *resultPtr, *objPtr;

    resultPtr = Tcl_NewObj();
    hashPtr = Tcl_FindHashEntry(