summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--mac/tkMacDialog.c10
-rw-r--r--mac/tkMacSend.c4
3 files changed, 13 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 513c1a4..710133f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;