Fix silly mistake. :^}

2 files changed, 9 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index f375c16..722e0b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-07  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
+
+	* generic/tkCanvas.c (CanvasWidgetCmd): Fix stupid mistake in
+	variable names, reported by Andreas Leitgeb.
+
 2005-02-03  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
 
 	* generic/tkCanvas.c (GetStaticUids): New function to manage the
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index d3ec308..65f6816 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkCanvas.c,v 1.33 2005/02/03 13:46:43 dkf Exp $
+ * RCS: @(#) $Id: tkCanvas.c,v 1.34 2005/02/07 10:33:09 dkf Exp $
  */
 
 /* #define USE_OLD_TAG_SEARCH 1 */
@@ -953,12 +953,12 @@ CanvasWidgetCmd(clientData, interp, objc, objv)
 	}
 	arg = Tcl_GetStringFromObj(objv[2], (int *) &length);
 	c = arg[0];
-	Tcl_MutexLock(&typeListPtr);
+	Tcl_MutexLock(&typeListMutex);
 	for (typePtr = typeList; typePtr != NULL; typePtr = typePtr->nextPtr) {
 	    if ((c == typePtr->name[0])
 		    && (strncmp(arg, typePtr->name, length) == 0)) {
 		if (matchPtr != NULL) {
-		    Tcl_MutexUnlock(&typeListPtr);
+		    Tcl_MutexUnlock(&typeListMutex);
 		badType:
 		    Tcl_AppendResult(interp,
 			    "unknown or ambiguous item type \"",
@@ -974,7 +974,7 @@ CanvasWidgetCmd(clientData, interp, objc, objv)
 	 * the matched item type that are potentially modified by
 	 * other threads.
 	 */
-	Tcl_MutexUnlock(&typeListPtr);
+	Tcl_MutexUnlock(&typeListMutex);
 	if (matchPtr == NULL) {
 	    goto badType;
 	}