From 24e051812287e5d40fd336e1354429844cd00dee Mon Sep 17 00:00:00 2001 From: Sebastien Barre Date: Wed, 18 Sep 2002 09:53:11 -0400 Subject: FIX: better support for the Tcl/Tk 8.4 pre-release --- Source/cmVTKWrapTclCommand.cxx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Source/cmVTKWrapTclCommand.cxx b/Source/cmVTKWrapTclCommand.cxx index 8d3c0f9..1c7cc92 100644 --- a/Source/cmVTKWrapTclCommand.cxx +++ b/Source/cmVTKWrapTclCommand.cxx @@ -232,8 +232,8 @@ 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" + "#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4) && (TCL_RELEASE_LEVEL >= TCL_FINAL_RELEASE)\n" + " typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, CONST84 char *[]);\n" "#else\n" " typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, char *[]);\n" "#endif\n" -- cgit v0.12