From a4b076811c5d22ffe556908c925d179756c5cc6e Mon Sep 17 00:00:00 2001
From: Sebastien Barre <sebastien.barre@kitware.com>
Date: Tue, 17 Sep 2002 14:18:11 -0400
Subject: [PATCH] ENH: add support for Tcl/Tk 8.4.0

---
 Source/cmVTKWrapTclCommand.cxx | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/cmVTKWrapTclCommand.cxx b/Source/cmVTKWrapTclCommand.cxx
index d42fd817d..8d3c0f9ce 100644
--- a/Source/cmVTKWrapTclCommand.cxx
+++ b/Source/cmVTKWrapTclCommand.cxx
@@ -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");