diff options
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkUnix.c | 6 | ||||
| -rw-r--r-- | unix/tkUnixCursor.c | 4 | ||||
| -rw-r--r-- | unix/tkUnixEvent.c | 4 | ||||
| -rw-r--r-- | unix/tkUnixInit.c | 8 | ||||
| -rw-r--r-- | unix/tkUnixSend.c | 6 | ||||
| -rw-r--r-- | unix/tkUnixWm.c | 9 |
6 files changed, 19 insertions, 18 deletions
diff --git a/unix/tkUnix.c b/unix/tkUnix.c index 769a0b7..0d6ecc5 100644 --- a/unix/tkUnix.c +++ b/unix/tkUnix.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnix.c,v 1.4 1999/04/16 01:51:45 stanton Exp $ + * RCS: @(#) $Id: tkUnix.c,v 1.5 2002/01/25 21:09:37 dgp Exp $ */ #include <tkInt.h> @@ -68,10 +68,10 @@ TkGetServerInfo(interp, tkwin) *---------------------------------------------------------------------- */ -char * +CONST char * TkGetDefaultScreenName(interp, screenName) Tcl_Interp *interp; /* Interp used to find environment variables. */ - char *screenName; /* Screen name from command line, or NULL. */ + CONST char *screenName; /* Screen name from command line, or NULL. */ { if ((screenName == NULL) || (screenName[0] == '\0')) { screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY); diff --git a/unix/tkUnixCursor.c b/unix/tkUnixCursor.c index 8755a3c..16dd52e 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.4 1999/04/16 01:51:45 stanton Exp $ + * RCS: @(#) $Id: tkUnixCursor.c,v 1.5 2002/01/25 21:09:37 dgp Exp $ */ #include "tkPort.h" @@ -154,7 +154,7 @@ TkGetCursorByName(interp, tkwin, string) TkUnixCursor *cursorPtr = NULL; Cursor cursor = None; int argc; - char **argv = NULL; + CONST char **argv = NULL; Pixmap source = None; Pixmap mask = None; Display *display = Tk_Display(tkwin); diff --git a/unix/tkUnixEvent.c b/unix/tkUnixEvent.c index 4353154..d2682a7 100644 --- a/unix/tkUnixEvent.c +++ b/unix/tkUnixEvent.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixEvent.c,v 1.3 1999/04/16 01:51:46 stanton Exp $ + * RCS: @(#) $Id: tkUnixEvent.c,v 1.4 2002/01/25 21:09:37 dgp Exp $ */ #include "tkInt.h" @@ -118,7 +118,7 @@ DisplayExitHandler(clientData) TkDisplay * TkpOpenDisplay(display_name) - char *display_name; + CONST char *display_name; { TkDisplay *dispPtr; Display *display = XOpenDisplay(display_name); diff --git a/unix/tkUnixInit.c b/unix/tkUnixInit.c index 5aa68ef..825b0c1 100644 --- a/unix/tkUnixInit.c +++ b/unix/tkUnixInit.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixInit.c,v 1.4 1999/04/16 01:51:46 stanton Exp $ + * RCS: @(#) $Id: tkUnixInit.c,v 1.5 2002/01/25 21:09:37 dgp Exp $ */ #include "tkInt.h" @@ -71,7 +71,7 @@ TkpGetAppName(interp, namePtr) Tcl_Interp *interp; Tcl_DString *namePtr; /* A previously initialized Tcl_DString. */ { - char *p, *name; + CONST char *p, *name; name = Tcl_GetVar(interp, "argv0", TCL_GLOBAL_ONLY); if ((name == NULL) || (*name == 0)) { @@ -104,8 +104,8 @@ TkpGetAppName(interp, namePtr) void TkpDisplayWarning(msg, title) - char *msg; /* Message to be displayed. */ - char *title; /* Title of warning. */ + CONST char *msg; /* Message to be displayed. */ + CONST char *title; /* Title of warning. */ { Tcl_Channel errChannel = Tcl_GetStdChannel(TCL_STDERR); if (errChannel) { diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 597911f..14c8a7e 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixSend.c,v 1.4 1999/04/16 01:51:47 stanton Exp $ + * RCS: @(#) $Id: tkUnixSend.c,v 1.5 2002/01/25 21:09:37 dgp Exp $ */ #include "tkPort.h" @@ -603,7 +603,7 @@ ValidateName(dispPtr, name, commWindow, oldOK) Atom actualType; char *property; Tk_ErrorHandler handler; - char **argv; + CONST char **argv; property = NULL; @@ -1508,7 +1508,7 @@ SendEventProc(clientData, eventPtr) Tcl_DStringAppend(&reply, Tcl_GetStringResult(remoteInterp), -1); if (result == TCL_ERROR) { - char *varValue; + CONST char *varValue; varValue = Tcl_GetVar2(remoteInterp, "errorInfo", (char *) NULL, TCL_GLOBAL_ONLY); diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c index d03fb43..ed1a18a 100644 --- a/unix/tkUnixWm.c +++ b/unix/tkUnixWm.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkUnixWm.c,v 1.11 2001/12/13 01:58:46 hobbs Exp $ + * RCS: @(#) $Id: tkUnixWm.c,v 1.12 2002/01/25 21:09:37 dgp Exp $ */ #include "tkPort.h" @@ -196,7 +196,7 @@ typedef struct TkWmInfo { ProtocolHandler *protPtr; /* First in list of protocol handlers for * this window (NULL means none). */ int cmdArgc; /* Number of elements in cmdArgv below. */ - char **cmdArgv; /* Array of strings to store in the + CONST char **cmdArgv; /* Array of strings to store in the * WM_COMMAND property. NULL means nothing * available. */ char *clientMachine; /* String to store in WM_CLIENT_MACHINE @@ -920,7 +920,8 @@ Tk_WmCmd(clientData, interp, argc, argv) Window *cmapList; TkWindow *winPtr2; int count, i, windowArgc, gotToplevel; - char buffer[20], **windowArgv; + CONST char **windowArgv; + char buffer[20]; if ((argc != 3) && (argc != 4)) { Tcl_AppendResult(interp, "wrong # arguments: must be \"", @@ -993,7 +994,7 @@ Tk_WmCmd(clientData, interp, argc, argv) } else if ((c == 'c') && (strncmp(argv[1], "command", length) == 0) && (length >= 3)) { int cmdArgc; - char **cmdArgv; + CONST char **cmdArgv; if ((argc != 3) && (argc != 4)) { Tcl_AppendResult(interp, "wrong # arguments: must be \"", |