diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-25 21:09:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-25 21:09:35 (GMT) |
| commit | 6ed2bb40b9be7079b3eb3b9872657d06d568dc7f (patch) | |
| tree | 2041d0c0de9f76a800e1af4c067e78376fbdd570 /unix/tkUnix.c | |
| parent | 7b64060dd94a995160cc8ccbd5bee7556fd996a9 (diff) | |
| download | tk-6ed2bb40b9be7079b3eb3b9872657d06d568dc7f.zip tk-6ed2bb40b9be7079b3eb3b9872657d06d568dc7f.tar.gz tk-6ed2bb40b9be7079b3eb3b9872657d06d568dc7f.tar.bz2 | |
* Updated callers of Tcl_SplitList and Tcl_Merge.
* Updated callers of Tcl_GetStringResult.
Rewrote PrintScrollFractions to ScrollFractions to stop scribbling
directly on interp->result.
* Updated callers of Tcl_GetVar, Tcl_GetVar2
* Updated callers of Tcl_SplitPath, Tcl_JoinPath, and
Tcl_TranslateFileName.
Diffstat (limited to 'unix/tkUnix.c')
| -rw-r--r-- | unix/tkUnix.c | 6 |
1 files changed, 3 insertions, 3 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); |