diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-02-22 08:44:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-02-22 08:44:24 (GMT) |
| commit | 576288f446b6711ed7247c4bc64af581a4f29388 (patch) | |
| tree | e3dc2cfda6b3b802979347c59b408b18a068b995 /generic/tkListbox.c | |
| parent | e8f2f6c3041bdac19176d78cab30578001eedd22 (diff) | |
| download | tk-576288f446b6711ed7247c4bc64af581a4f29388.zip tk-576288f446b6711ed7247c4bc64af581a4f29388.tar.gz tk-576288f446b6711ed7247c4bc64af581a4f29388.tar.bz2 | |
Replace all Tcl_TraceVar/Tcl_UntraceVar with Tcl_TraceVar2/Tcl_UntraceVar2 calls: The former are just thin wrappers around the latter.
FossilOrigin-Name: fd565de1f1490bbc2ea68ecd4134cc31da3cb0bf
Diffstat (limited to 'generic/tkListbox.c')
| -rw-r--r-- | generic/tkListbox.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkListbox.c b/generic/tkListbox.c index aad0163..c5460f9 100644 --- a/generic/tkListbox.c +++ b/generic/tkListbox.c @@ -1444,7 +1444,7 @@ DestroyListbox( } if (listPtr->listVarName != NULL) { - Tcl_UntraceVar(listPtr->interp, listPtr->listVarName, + Tcl_UntraceVar2(listPtr->interp, listPtr->listVarName, NULL, TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, ListboxListVarProc, listPtr); } @@ -1552,7 +1552,7 @@ ConfigureListbox( oldExport = listPtr->exportSelection; if (listPtr->listVarName != NULL) { - Tcl_UntraceVar(interp, listPtr->listVarName, + Tcl_UntraceVar2(interp, listPtr->listVarName, NULL, TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, ListboxListVarProc, listPtr); } |