From e9883bba4b0507959e2d037aca5db25e08a298cc Mon Sep 17 00:00:00 2001
From: das <das>
Date: Thu, 31 May 2007 13:31:26 +0000
Subject: 	* generic/tkFont.c:	#ifdef out debug msg printing to
 stderr. 	* generic/tkTextDisp.c:

---
 generic/tkFont.c     | 4 +++-
 generic/tkTextDisp.c | 8 ++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/generic/tkFont.c b/generic/tkFont.c
index 6bc8196..dac1ede 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkFont.c,v 1.35 2007/05/11 11:00:48 patthoyts Exp $
+ * RCS: @(#) $Id: tkFont.c,v 1.36 2007/05/31 13:31:26 das Exp $
  */
 
 #include "tkPort.h"
@@ -425,8 +425,10 @@ TkFontPkgFree(
 	    searchPtr != NULL;
 	    searchPtr = Tcl_NextHashEntry(&search)) {
 	fontsLeft++;
+#ifdef DEBUG_FONTS
 	fprintf(stderr, "Font %s still in cache.\n",
 		Tcl_GetHashKey(&fiPtr->fontCache, searchPtr));
+#endif
     }
 
 #ifdef PURIFY
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c
index f42c086..2deca4e 100644
--- a/generic/tkTextDisp.c
+++ b/generic/tkTextDisp.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: tkTextDisp.c,v 1.63 2007/04/23 21:15:19 das Exp $
+ * RCS: @(#) $Id: tkTextDisp.c,v 1.64 2007/05/31 13:31:26 das Exp $
  */
 
 #include "tkPort.h"
@@ -8450,7 +8450,9 @@ RemoveFromBaseChunk(
     BaseCharInfo *bciPtr;
 
     if (chunkPtr->displayProc != CharDisplayProc) {
+#ifdef DEBUG_LAYOUT_WITH_BASE_CHUNKS
 	fprintf(stderr,"RemoveFromBaseChunk called with wrong chunk type\n");
+#endif
 	return;
     }
 
@@ -8469,11 +8471,13 @@ RemoveFromBaseChunk(
 
     if ((ciPtr->baseOffset + ciPtr->numBytes)
 	    != Tcl_DStringLength(&bciPtr->baseChars)) {
+#ifdef DEBUG_LAYOUT_WITH_BASE_CHUNKS
 	fprintf(stderr,"RemoveFromBaseChunk called with wrong chunk "
 		"(not last)\n");
+#endif
     }
 
-    Tcl_DStringSetLength(&bciPtr->baseChars,ciPtr->baseOffset);
+    Tcl_DStringSetLength(&bciPtr->baseChars, ciPtr->baseOffset);
 
     /*
      * Invalidate the stored pixel width of the base chunk.
-- 
cgit v0.12