diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 10:19:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-25 10:19:59 (GMT) |
| commit | a2eecbce351c9dc1436c1a7a1582e1df477e7d8d (patch) | |
| tree | 4b59752f71961a6e9980f303cbd1ae83923c5450 /generic/tkCmds.c | |
| parent | c5c9fa0e4dbf09d2526d3e6c40d846217187b69f (diff) | |
| parent | 0eb68c7b8271c5fe018e7b2a992ac1def4598879 (diff) | |
| download | tk-a2eecbce351c9dc1436c1a7a1582e1df477e7d8d.zip tk-a2eecbce351c9dc1436c1a7a1582e1df477e7d8d.tar.gz tk-a2eecbce351c9dc1436c1a7a1582e1df477e7d8d.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tkCmds.c')
| -rw-r--r-- | generic/tkCmds.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index e57f21e..36981af 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -1113,14 +1113,16 @@ Tk_TkwaitObjCmd( static char * WaitVariableProc( ClientData clientData, /* Pointer to integer to set to 1. */ - TCL_UNUSED(Tcl_Interp *), /* Interpreter containing variable. */ - TCL_UNUSED(const char *), /* Name of variable. */ + Tcl_Interp *interp, /* Interpreter containing variable. */ + const char *name1, /* Name of variable. */ TCL_UNUSED(const char *), /* Second part of variable name. */ TCL_UNUSED(int)) /* Information about what happened. */ { int *donePtr = (int *)clientData; *donePtr = 1; + Tcl_UntraceVar(interp, name1, TCL_TRACE_WRITES|TCL_TRACE_UNSETS, + WaitVariableProc, clientData); return NULL; } |