FIX: better support for the Tcl/Tk 8.4 pre-release
This commit is contained in:
parent
5e319f5b9b
commit
24e0518122
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue