ENH: add support for Tcl/Tk 8.4.0

This commit is contained in:
Sebastien Barre 2002-09-17 14:18:11 -04:00
parent 973cf550cb
commit a4b076811c

View File

@ -232,7 +232,11 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout,
"extern \"C\"\n"
"{\n"
"#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4)\n"
" typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, CONST char *[]);\n"
"#else\n"
" typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, char *[]);\n"
"#endif\n"
"}\n"
"\n");