diff options
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tkMacDialog.c | 10 | ||||
| -rw-r--r-- | mac/tkMacSend.c | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/mac/tkMacDialog.c b/mac/tkMacDialog.c index d242c01..03fb495 100644 --- a/mac/tkMacDialog.c +++ b/mac/tkMacDialog.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: tkMacDialog.c,v 1.7 2001/11/23 02:05:41 das Exp $ + * RCS: @(#) $Id: tkMacDialog.c,v 1.8 2002/01/18 03:24:24 das Exp $ */ #include <Gestalt.h> @@ -141,7 +141,7 @@ Tk_ChooseColorObjCmd( OSErr err; static inited = 0; static RGBColor in; - static char *optionStrings[] = { + static CONST char *optionStrings[] = { "-initialcolor", "-parent", "-title", NULL }; enum options { @@ -304,7 +304,7 @@ Tk_GetOpenFileObjCmd( Str255 message, title; AEDesc initialDesc = {typeNull, NULL}; FSSpec dirSpec; - static char *openOptionStrings[] = { + static CONST char *openOptionStrings[] = { "-defaultextension", "-filetypes", "-initialdir", "-initialfile", "-message", "-multiple", @@ -453,7 +453,7 @@ Tk_GetSaveFileObjCmd( FSSpec dirSpec; Str255 title, message; OpenFileData ofd; - static char *saveOptionStrings[] = { + static CONST char *saveOptionStrings[] = { "-defaultextension", "-filetypes", "-initialdir", "-initialfile", "-message", "-parent", "-title", NULL }; @@ -595,7 +595,7 @@ Tk_ChooseDirectoryObjCmd(clientData, interp, objc, objv) Str255 message, title; int srcRead, dstWrote; OpenFileData ofd; - static char *chooseOptionStrings[] = { + static CONST char *chooseOptionStrings[] = { "-initialdir", "-message", "-mustexist", "-parent", "-title", NULL }; enum chooseOptions { diff --git a/mac/tkMacSend.c b/mac/tkMacSend.c index 3884415..a53e445 100644 --- a/mac/tkMacSend.c +++ b/mac/tkMacSend.c @@ -31,7 +31,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacSend.c,v 1.4 1999/05/22 06:35:10 jingham Exp $ + * RCS: @(#) $Id: tkMacSend.c,v 1.5 2002/01/18 03:24:28 das Exp $ */ #include <Gestalt.h> @@ -361,7 +361,7 @@ Tk_SendObjCmd( int objc, /* Number of arguments */ Tcl_Obj *CONST objv[]) /* The arguments */ { - static char *sendOptions[] = {"-async", "-displayof", "-", (char *) NULL}; + static CONST char *sendOptions[] = {"-async", "-displayof", "-", (char *) NULL}; char *stringRep, *destName; int async = 0; int i, index, firstArg; |