diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | mac/tkMacDialog.c | 10 | ||||
| -rw-r--r-- | mac/tkMacSend.c | 4 |
3 files changed, 13 insertions, 7 deletions
@@ -1,3 +1,9 @@ +2001-01-18 Daniel Steffen <das@users.sourceforge.net> + + * mac/tkMacDialog.c: + * mac/tkMacSend.c: TIP 27 CONSTification broke the mac + build in a few places. + 2002-01-16 Jeff Hobbs <jeffh@ActiveState.com> * generic/tkListbox.c (ChangeListboxOffset): improved tracking 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; |