From 597be5ef8e34b8a6f93596f2674bff537d143fe4 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 14 Feb 2020 10:21:09 +0000
Subject: A few missing (internal) "const" modifiers.

---
 generic/tkFont.c   | 2 +-
 generic/tkOption.c | 2 +-
 generic/tkStyle.c  | 4 ++--
 unix/tkUnixFont.c  | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/generic/tkFont.c b/generic/tkFont.c
index 5d75b13..0ec79a6 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -3583,7 +3583,7 @@ ParseFontNameObj(
 				 * specified in font name are filled with
 				 * default values. */
 {
-    char *dash;
+    const char *dash;
     int objc, result, i, n;
     Tcl_Obj **objv;
     const char *string;
diff --git a/generic/tkOption.c b/generic/tkOption.c
index 713a6d5..8aaf805 100644
--- a/generic/tkOption.c
+++ b/generic/tkOption.c
@@ -406,7 +406,7 @@ Tk_GetOption(
 				 * name. */
 {
     Tk_Uid nameId, classId = NULL;
-    char *masqName;
+    const char *masqName;
     register Element *elPtr, *bestPtr;
     register int count;
     StackLevel *levelPtr;
diff --git a/generic/tkStyle.c b/generic/tkStyle.c
index 5c0f204..9cf95d0 100644
--- a/generic/tkStyle.c
+++ b/generic/tkStyle.c
@@ -609,7 +609,7 @@ CreateElement(
     Tcl_HashEntry *entryPtr, *engineEntryPtr;
     Tcl_HashSearch search;
     int newEntry, elementId, genericId = -1;
-    char *dot;
+    const char *dot;
     StyleEngine *enginePtr;
 
     /*
@@ -690,7 +690,7 @@ Tk_GetElementId(
 	    Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
     Tcl_HashEntry *entryPtr;
     int genericId = -1;
-    char *dot;
+    const char *dot;
 
     /*
      * Find the element Id.
diff --git a/unix/tkUnixFont.c b/unix/tkUnixFont.c
index d95527b..cfeed1b 100644
--- a/unix/tkUnixFont.c
+++ b/unix/tkUnixFont.c
@@ -839,7 +839,7 @@ TkpGetFontFamilies(
     Tk_Window tkwin)		/* For display to query. */
 {
     int i, new, numNames;
-    char *family, **nameList;
+    const char *family, **nameList;
     Tcl_HashTable familyTable;
     Tcl_HashEntry *hPtr;
     Tcl_HashSearch search;
@@ -848,7 +848,7 @@ TkpGetFontFamilies(
     Tcl_InitHashTable(&familyTable, TCL_STRING_KEYS);
     nameList = ListFonts(Tk_Display(tkwin), "*", &numNames);
     for (i = 0; i < numNames; i++) {
-	char *familyEnd;
+	const char *familyEnd;
 
 	family = strchr(nameList[i] + 1, '-');
 	if (family == NULL) {
-- 
cgit v0.12