Get rid of pre-C89-isms (esp. CONST vs const).

1 files changed, 17 insertions, 17 deletions

diff --git a/unix/tkUnixCursor.c b/unix/tkUnixCursor.c
index d57db13..103fd13 100644
--- a/unix/tkUnixCursor.c
+++ b/unix/tkUnixCursor.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixCursor.c,v 1.13 2008/03/26 19:34:53 dgp Exp $
+ * RCS: @(#) $Id: tkUnixCursor.c,v 1.14 2008/04/27 22:39:13 dkf Exp $
  */
 
 #include "tkInt.h"
@@ -30,8 +30,8 @@ typedef struct {
  * the official cursor font:
  */
 
-static struct CursorName {
-    CONST char *name;
+static const struct CursorName {
+    const char *name;
     unsigned int shape;
 } cursorNames[] = {
     {"X_cursor",		XC_X_cursor},
@@ -161,8 +161,8 @@ static struct CursorName {
 
 #endif /* DEFINE_MYARROW_CURSOR */
 
-static struct TkCursorName {
-    char *name;
+static const struct TkCursorName {
+    const char *name;
     char *data;
     char *mask;
 } tkCursorNames[] = {
@@ -182,8 +182,8 @@ static struct TkCursorName {
 #endif
 
 static Cursor		CreateCursorFromTableOrFile(Tcl_Interp *interp,
-			    Tk_Window tkwin, int argc, CONST char **argv,
-			    struct TkCursorName *tkCursorPtr);
+			    Tk_Window tkwin, int argc, const char **argv,
+			    const struct TkCursorName *tkCursorPtr);
 
 /*
  *----------------------------------------------------------------------
@@ -213,10 +213,10 @@ TkGetCursorByName(
     TkUnixCursor *cursorPtr = NULL;
     Cursor cursor = None;
     int argc;
-    CONST char **argv = NULL;
+    const char **argv = NULL;
     Display *display = Tk_Display(tkwin);
     int inTkTable = 0;
-    struct TkCursorName* tkCursorPtr = NULL;
+    const struct TkCursorName *tkCursorPtr = NULL;
 
     if (Tcl_SplitList(interp, string, &argc, &argv) != TCL_OK) {
 	return NULL;
@@ -247,7 +247,7 @@ TkGetCursorByName(
     if ((argv[0][0] != '@') && !inTkTable) {
 	XColor fg, bg;
 	unsigned int maskIndex;
-	register struct CursorName *namePtr;
+	register const struct CursorName *namePtr;
 	TkDisplay *dispPtr;
 
 	/*
@@ -377,8 +377,8 @@ CreateCursorFromTableOrFile(
     Tcl_Interp *interp,		/* Interpreter to use for error reporting. */
     Tk_Window tkwin,		/* Window in which cursor will be used. */
     int argc,
-    CONST char **argv,		/* Cursor spec parsed into elements. */
-    struct TkCursorName *tkCursorPtr)
+    const char **argv,		/* Cursor spec parsed into elements. */
+    const struct TkCursorName *tkCursorPtr)
 				/* Non-NULL when cursor is defined in Tk
 				 * table. */
 {
@@ -388,8 +388,8 @@ CreateCursorFromTableOrFile(
     int xHot = -1, yHot = -1;
     int dummy1, dummy2;
     XColor fg, bg;
-    CONST char *fgColor;
-    CONST char *bgColor;
+    const char *fgColor;
+    const char *bgColor;
     int inTkTable = (tkCursorPtr != NULL);
 
     Display *display = Tk_Display(tkwin);
@@ -430,7 +430,7 @@ CreateCursorFromTableOrFile(
 	ckfree(data);
     } else {
 	if (TkReadBitmapFile(display, drawable, &argv[0][1],
-		(unsigned int *) &width, (unsigned int *) &height,
+		(unsigned *) &width, (unsigned *) &height,
 		&source, &xHot, &yHot) != BitmapSuccess) {
 	    Tcl_AppendResult(interp, "cleanup reading bitmap file \"",
 		    &argv[0][1], "\"", NULL);
@@ -570,8 +570,8 @@ CreateCursorFromTableOrFile(
 TkCursor *
 TkCreateCursorFromData(
     Tk_Window tkwin,		/* Window in which cursor will be used. */
-    CONST char *source,		/* Bitmap data for cursor shape. */
-    CONST char *mask,		/* Bitmap data for cursor mask. */
+    const char *source,		/* Bitmap data for cursor shape. */
+    const char *mask,		/* Bitmap data for cursor mask. */
     int width, int height,	/* Dimensions of cursor. */
     int xHot, int yHot,		/* Location of hot-spot in cursor. */
     XColor fgColor,		/* Foreground color for cursor. */