From 84152f37f130331205bf83ee29f1a27e96fb88d8 Mon Sep 17 00:00:00 2001
From: barre <barre>
Date: Tue, 17 Sep 2002 18:18:11 +0000
Subject: [PATCH] ENH: add support for Tcl/Tk 8.4.0

---
 Source/cmVTKWrapTclCommand.cxx | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Source/cmVTKWrapTclCommand.cxx b/Source/cmVTKWrapTclCommand.cxx
index 7fbd19bae..e708ece63 100644
--- a/Source/cmVTKWrapTclCommand.cxx
+++ b/Source/cmVTKWrapTclCommand.cxx
@@ -3,8 +3,8 @@
   Program:   Insight Segmentation & Registration Toolkit
   Module:    $RCSfile: cmVTKWrapTclCommand.cxx,v $
   Language:  C++
-  Date:      $Date: 2002-09-06 22:05:06 $
-  Version:   $Revision: 1.31 $
+  Date:      $Date: 2002-09-17 18:18:11 $
+  Version:   $Revision: 1.32 $
 
   Copyright (c) 2002 Insight Consortium. All rights reserved.
   See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.
@@ -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");
 
-- 
2.11.4.GIT