diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-14 10:21:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-14 10:21:09 (GMT) |
| commit | 597be5ef8e34b8a6f93596f2674bff537d143fe4 (patch) | |
| tree | d8dd51ef91f54b28963a5649db96dba7043d4d85 | |
| parent | f1f70ca3742996e2513e639bd5f7a4a2df72770d (diff) | |
| download | tk-597be5ef8e34b8a6f93596f2674bff537d143fe4.zip tk-597be5ef8e34b8a6f93596f2674bff537d143fe4.tar.gz tk-597be5ef8e34b8a6f93596f2674bff537d143fe4.tar.bz2 | |
A few missing (internal) "const" modifiers.
| -rw-r--r-- | generic/tkFont.c | 2 | ||||
| -rw-r--r-- | generic/tkOption.c | 2 | ||||
| -rw-r--r-- | generic/tkStyle.c | 4 | ||||
| -rw-r--r-- | 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) { |