summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tkFont.c4
-rw-r--r--generic/tkTextDisp.c8
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.