CONSTify TkDebugBorder, TkStringToKeysym, TkDebugBitmap

TkDebugColor, TkDebugCursor, TkDebugFont
All those mods TIP #27 complient, no incompatibility risks.

1 files changed, 8 insertions, 8 deletions

diff --git a/generic/tkFont.c b/generic/tkFont.c
index 0b67f56..046a0ff 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.51 2008/12/07 16:34:12 das Exp $
+ * RCS: @(#) $Id: tkFont.c,v 1.52 2009/01/09 07:03:31 nijtmans Exp $
  */
 
 #include "tkInt.h"
@@ -607,7 +607,7 @@ Tk_FontObjCmd(
     }
     case FONT_CONFIGURE: {
 	int result;
-	char *string;
+	const char *string;
 	Tcl_Obj *objPtr;
 	NamedFont *nfPtr;
 	Tcl_HashEntry *namedHashPtr;
@@ -641,7 +641,7 @@ Tk_FontObjCmd(
     }
     case FONT_CREATE: {
 	int skip, i;
-	char *name;
+	const char *name;
 	char buf[16 + TCL_INTEGER_SPACE];
 	TkFontAttributes fa;
 	Tcl_HashEntry *namedHashPtr;
@@ -683,7 +683,7 @@ Tk_FontObjCmd(
     }
     case FONT_DELETE: {
 	int i, result = TCL_OK;
-	char *string;
+	const char *string;
 
 	/*
 	 * Delete the named font. If there are still widgets using this font,
@@ -715,7 +715,7 @@ Tk_FontObjCmd(
 	break;
     }
     case FONT_MEASURE: {
-	char *string;
+	const char *string;
 	Tk_Font tkfont;
 	int length = 0, skip = 0;
 
@@ -3371,7 +3371,7 @@ ConfigAttributesObj(
 {
     int i, n, index;
     Tcl_Obj *optionPtr, *valuePtr;
-    char *value;
+    const char *value;
 
     for (i = 0; i < objc; i += 2) {
 	optionPtr = objv[i];
@@ -3566,7 +3566,7 @@ ParseFontNameObj(
     char *dash;
     int objc, result, i, n;
     Tcl_Obj **objv;
-    char *string;
+    const char *string;
 
     TkInitFontAttributes(faPtr);
 
@@ -4167,7 +4167,7 @@ Tcl_Obj *
 TkDebugFont(
     Tk_Window tkwin,		/* The window in which the font will be used
 				 * (not currently used). */
-    char *name)			/* Name of the desired color. */
+    const char *name)		/* Name of the desired color. */
 {
     TkFont *fontPtr;
     Tcl_HashEntry *hashPtr;