Tk Source Code

Check-in [1c5f7e98]
Login

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

Overview
Comment:Migrate away from TCL_INTERP_DESTROYED (TIP 543).
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 1c5f7e986db21f2dbce184e64f41dcddd844b327bddd24abfaeec03b49cda10f
User & Date: dgp 2019-05-17 13:42:43.466
Context
2019-05-17
17:18
Change .ext extension into .aaa in winDialog.test since some corporate policies forbid .ext extension. See https://core.tcl-lang.org/tcl/tktview/cc74e50996e20cbb6a851087b36c52eb75526aa4 check-in: 06fb23d8 user: fvogel tags: core-8-6-branch
13:43
merge 8.6 check-in: 22e9ad26 user: dgp tags: trunk
13:42
Migrate away from TCL_INTERP_DESTROYED (TIP 543). check-in: 1c5f7e98 user: dgp tags: core-8-6-branch
12:38
In Aqua, protect against double release of clipping regions. check-in: 1304e06d user: culler tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/ttk/ttkTrace.c.
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    const char *name2,		/* (unused) */
    int flags)			/* Information about what happened. */
{
    Ttk_TraceHandle *tracePtr = clientData;
    const char *name, *value;
    Tcl_Obj *valuePtr;

    if (flags & TCL_INTERP_DESTROYED) {
	return NULL;
    }

    name = Tcl_GetString(tracePtr->varnameObj);

    /*
     * If the variable is being unset, then re-establish the trace:







|







30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    const char *name2,		/* (unused) */
    int flags)			/* Information about what happened. */
{
    Ttk_TraceHandle *tracePtr = clientData;
    const char *name, *value;
    Tcl_Obj *valuePtr;

    if (Tcl_InterpDeleted(interp)) {
	return NULL;
    }

    name = Tcl_GetString(tracePtr->varnameObj);

    /*
     * If the variable is being unset, then re-establish the trace: