Updated to tk 8.4.1

[pf3gnuchains/sourceware.git] / tk / generic / tkAtom.c

diff --git a/tk/generic/tkAtom.c b/tk/generic/tkAtom.c
index 45260d9..e095183 100644 (file)
--- a/tk/generic/tkAtom.c
+++ b/tk/generic/tkAtom.c
@@ -80,7 +80,7 @@ Atom
 Tk_InternAtom(tkwin, name)
     Tk_Window tkwin;           /* Window token;  map name to atom
                                 * for this window's display. */
-    char *name;                        /* Name to turn into atom. */
+    CONST char *name;          /* Name to turn into atom. */
 {
     register TkDisplay *dispPtr;
     register Tcl_HashEntry *hPtr;
@@ -127,7 +127,7 @@ Tk_InternAtom(tkwin, name)
  *--------------------------------------------------------------
  */
 
-char *
+CONST char *
 Tk_GetAtomName(tkwin, atom)
     Tk_Window tkwin;           /* Window token;  map atom to name
                                 * relative to this window's
@@ -168,7 +168,7 @@ Tk_GetAtomName(tkwin, atom)
                &new);
        Tcl_SetHashValue(hPtr, name);
     }
-    return (char *) Tcl_GetHashValue(hPtr);
+    return Tcl_GetHashValue(hPtr);
 }
 \f
 /*
@@ -215,4 +215,3 @@ AtomInit(dispPtr)
        }
     }
 }
-