FIX: better support for the Tcl/Tk 8.4 pre-release

This commit is contained in:
Sebastien Barre 2002-09-18 09:53:11 -04:00
parent 5e319f5b9b
commit 24e0518122
1 changed files with 2 additions and 2 deletions

View File

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