summaryrefslogtreecommitdiffstats
path: root/generic/tkFont.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-01-17 05:13:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-01-17 05:13:11 (GMT)
commite18b826ed756e177fc0e6f96fed210bf26bcb8b7 (patch)
treea64645a35b960e288a19b038e87f81a9248f5709 /generic/tkFont.c
parente2d6df79c697064b173e14f29a157733ad3a9a6f (diff)
downloadtk-e18b826ed756e177fc0e6f96fed210bf26bcb8b7.zip
tk-e18b826ed756e177fc0e6f96fed210bf26bcb8b7.tar.gz
tk-e18b826ed756e177fc0e6f96fed210bf26bcb8b7.tar.bz2
* Updates to handle change in type of tablePtr
argument of Tcl_GetIndexFromObj(Struct) from (char **) to (CONST char **). [TIP 27] [Patch 504705]
Diffstat (limited to 'generic/tkFont.c')
-rw-r--r--generic/tkFont.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkFont.c b/generic/tkFont.c
index ded3745..2643b1f 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -11,7 +11,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.12 2001/08/15 15:44:36 dkf Exp $
+ * RCS: @(#) $Id: tkFont.c,v 1.13 2002/01/17 05:13:11 dgp Exp $
*/
#include "tkPort.h"
@@ -168,7 +168,7 @@ static TkStateMap xlfdSetwidthMap[] = {
* when configuring a set of font attributes.
*/
-static char *fontOpt[] = {
+static CONST char *fontOpt[] = {
"-family",
"-size",
"-weight",
@@ -479,7 +479,7 @@ Tk_FontObjCmd(clientData, interp, objc, objv)
int index;
Tk_Window tkwin;
TkFontInfo *fiPtr;
- static char *optionStrings[] = {
+ static CONST char *optionStrings[] = {
"actual", "configure", "create", "delete",
"families", "measure", "metrics", "names",
NULL
@@ -684,7 +684,7 @@ Tk_FontObjCmd(clientData, interp, objc, objv)
Tk_Font tkfont;
int skip, index, i;
CONST TkFontMetrics *fmPtr;
- static char *switches[] = {
+ static CONST char *switches[] = {
"-ascent", "-descent", "-linespace", "-fixed", NULL
};