fixed bug in init code

This commit is contained in:
Ken Martin 2001-05-08 16:20:24 -04:00
parent 7b2e824bc0
commit 67e31b789f

View File

@ -196,7 +196,7 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout,"ClientData %sNewCommand();\n",classes[i].c_str()); fprintf(fout,"ClientData %sNewCommand();\n",classes[i].c_str());
} }
if (!strcmp(kitName,"Vtkcommon")) if (!strcmp(kitName,"Vtkcommontcl"))
{ {
fprintf(fout,"int vtkCommand(ClientData cd, Tcl_Interp *interp,\n int argc, char *argv[]);\n"); fprintf(fout,"int vtkCommand(ClientData cd, Tcl_Interp *interp,\n int argc, char *argv[]);\n");
fprintf(fout,"\nTcl_HashTable vtkInstanceLookup;\n"); fprintf(fout,"\nTcl_HashTable vtkInstanceLookup;\n");
@ -226,7 +226,7 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout,"\n\nint VTK_EXPORT %s_Init(Tcl_Interp *interp)\n{\n", fprintf(fout,"\n\nint VTK_EXPORT %s_Init(Tcl_Interp *interp)\n{\n",
kitName); kitName);
if (!strcmp(kitName,"Vtkcommon")) if (!strcmp(kitName,"Vtkcommontcl"))
{ {
fprintf(fout, fprintf(fout,
" vtkTclInterpStruct *info = new vtkTclInterpStruct;\n"); " vtkTclInterpStruct *info = new vtkTclInterpStruct;\n");