From 227452e329f8e69279bc9ab93f21995b7249fab3 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 15 Jan 2002 21:29:12 +0000 Subject: * Updated callers of CONSTified Tcl interfaces Tcl_EvalFile and TclGetStartupScriptFileName. --- ChangeLog | 3 +++ generic/tkMain.c | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index ea86ca7..5857ad8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2002-01-04 Don Porter + * generic/tkMain.c (Tk_MainEx): Updated callers of CONSTified + Tcl interfaces Tcl_EvalFile and TclGetStartupScriptFileName. + * generic/tkConsole.c (ConsoleOutputProc,TkConsolePrint): * generic/tkInt.h (TkConsolePrint): * mac/tkMacAppInit.c (TkConsolePrint): Updated Tk's console to diff --git a/generic/tkMain.c b/generic/tkMain.c index 4fad91e..c2ea87a 100644 --- a/generic/tkMain.c +++ b/generic/tkMain.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMain.c,v 1.10 2001/11/23 02:06:48 das Exp $ + * RCS: @(#) $Id: tkMain.c,v 1.11 2002/01/15 21:29:12 dgp Exp $ */ #include @@ -101,7 +101,8 @@ Tk_MainEx(argc, argv, appInitProc, interp) * to execute commands. */ Tcl_Interp *interp; { - char *args, *fileName; + char *args; + CONST char *fileName; char buf[TCL_INTEGER_SPACE]; int code; size_t length; -- cgit v0.12