1 files changed, 60 insertions, 0 deletions
diff --git a/mbone/vic/files/patch-const b/mbone/vic/files/patch-const
new file mode 100644
index 000000000000..328bfda065af
--- /dev/null
+++ b/mbone/vic/files/patch-const
@@ -0,0 +1,60 @@
+--- tkStripchart.c	Mon Jun 29 15:17:00 1998
++++ tkStripchart.c	Thu Sep 23 18:50:39 2004
+@@ -364,5 +364,5 @@
+ int
+ Tk_StripchartCmd(ClientData clientData, Tcl_Interp *interp, int argc,
+-		 char **argv)
++		 CONST char **argv)
+  {
+ 	Tk_Window tkwin = (Tk_Window) clientData;
+--- main.cpp	Tue Feb 25 12:55:08 2003
++++ main.cpp	Thu Sep 23 18:51:59 2004
+@@ -407,5 +407,5 @@
+ }
+ 
+-extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, char** av);
++extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, const char** av);
+ #ifdef WIN32
+ extern "C" int WinPutsCmd(ClientData, Tcl_Interp*, int ac, char** av);
+--- vic_tcl.h	Thu Sep  9 08:05:49 1999
++++ vic_tcl.h	Thu Sep 23 19:00:33 2004
+@@ -74,6 +77,6 @@
+ 			error(file);
+ 	}
+-	inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
+-		return (Tcl_GetVar(tcl_, (char*)varname, flags));
++	inline CONST char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
++		return (Tcl_GetVar(tcl_, varname, flags));
+ 	}
+ 	/*
+@@ -125,5 +128,5 @@
+ 	void class_name(const char*);
+ 	/* make this public for Sun's compiler */
+-	static int callback(ClientData, Tcl_Interp*, int ac, char** av);
++	static int callback(ClientData, Tcl_Interp*, int ac, CONST char** av);
+ 	static void reset_all();
+     protected:
+--- rate-variable.cpp	Thu Sep  9 08:21:55 1999
++++ rate-variable.cpp	Thu Sep 23 18:55:10 2004
+@@ -62,11 +62,11 @@
+ 	RateVariable(const char* name) : TclObject(name) { }
+ protected:
+-	static char* update_rate_var(ClientData, Tcl_Interp*, char* name1,
+-				     char* name2, int flags);
++	static char* update_rate_var(ClientData, Tcl_Interp*, const char* name1,
++				     const char* name2, int flags);
+ 	int command(int argc, const char*const* argv);
+ } rate_variable_cmd("rate_variable");
+ 
+ char* RateVariable::update_rate_var(ClientData clientData, Tcl_Interp* tcl,
+-				    char* name1, char* name2, int flags)
++				    const char* name1, const char* name2, int flags)
+ {
+ 	rv_data* rv = (rv_data*)clientData;
+@@ -81,5 +81,5 @@
+ 		char res[128];
+ 		flags &= TCL_GLOBAL_ONLY;
+-		char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
++		const char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
+ 		if (cv == NULL)
+ 			return (tcl->result);