summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
Diffstat (limited to 'unix')
-rw-r--r--unix/tkUnix.c6
-rw-r--r--unix/tkUnixCursor.c4
-rw-r--r--unix/tkUnixEvent.c4
-rw-r--r--unix/tkUnixInit.c8
-rw-r--r--unix/tkUnixSend.c6
-rw-r--r--unix/tkUnixWm.c9
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 \"",