diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-16 07:41:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-16 07:41:01 (GMT) |
| commit | b759c79faef78af4298e356f590b3d3a35b5ae01 (patch) | |
| tree | 086c86b546650518426dcc5803be311f66cb3831 /generic/tkBusy.c | |
| parent | 79f10dcb586890630b25aa27250f270b39125713 (diff) | |
| download | tk-b759c79faef78af4298e356f590b3d3a35b5ae01.zip tk-b759c79faef78af4298e356f590b3d3a35b5ae01.tar.gz tk-b759c79faef78af4298e356f590b3d3a35b5ae01.tar.bz2 | |
Simplify NewNativeObj(), since its last parameter is always -1.
Change Tcl_StringMatch() calls to Tcl_StringCaseMatch()
A few end-of-line unnecessary spacings.
Diffstat (limited to 'generic/tkBusy.c')
| -rw-r--r-- | generic/tkBusy.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkBusy.c b/generic/tkBusy.c index 7bd6262..7bd9a44 100644 --- a/generic/tkBusy.c +++ b/generic/tkBusy.c @@ -879,7 +879,7 @@ Tk_BusyObjCmd( hPtr = Tcl_NextHashEntry(&cursor)) { busyPtr = Tcl_GetHashValue(hPtr); if (pattern == NULL || - Tcl_StringMatch(Tk_PathName(busyPtr->tkRef), pattern)) { + Tcl_StringCaseMatch(Tk_PathName(busyPtr->tkRef), pattern, 0)) { Tcl_ListObjAppendElement(interp, objPtr, TkNewWindowObj(busyPtr->tkRef)); } |