Procházet zdrojové kódy

ENH: add support for Tcl/Tk 8.4.0

Sebastien Barre před 23 roky
rodič
revize
a4b076811c
1 změnil soubory, kde provedl 4 přidání a 0 odebrání
  1. 4 0
      Source/cmVTKWrapTclCommand.cxx

+ 4 - 0
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");