ENH: Added wrapping of PrintRevisions method for vtkObjectBase.

Wrapping/vtkWrapTcl.c

@@ -659,7 +659,7 @@ void vtkParseOutput(FILE *fp, FileInfo *data)
     fprintf(fp,"    {\n    return TCL_OK;\n    }\n");
     }
   
-  /* add the default print method to Object */
+  /* Add the Print method to vtkObjectBase. */
   if (!strcmp("vtkObjectBase",data->ClassName))
     {
     fprintf(fp,"  if ((!strcmp(\"Print\",argv[1]))&&(argc == 2))\n    {\n");
@@ -669,7 +669,16 @@ void vtkParseOutput(FILE *fp, FileInfo *data)
     fprintf(fp,"    Tcl_SetResult(interp,buf.str(),TCL_VOLATILE);\n");
     fprintf(fp,"    delete buf.str();\n");
     fprintf(fp,"    return TCL_OK;\n    }\n");
+    /* Add the PrintRevisions method to vtkObjectBase. */
+    fprintf(fp,"  if ((!strcmp(\"PrintRevisions\",argv[1]))&&(argc == 2))\n    {\n");
+    fprintf(fp,"    ostrstream buf;\n");
+    fprintf(fp,"    op->PrintRevisions(buf);\n");
+    fprintf(fp,"    buf.put('\\0');\n");
+    fprintf(fp,"    Tcl_SetResult(interp,buf.str(),TCL_VOLATILE);\n");
+    fprintf(fp,"    delete buf.str();\n");
+    fprintf(fp,"    return TCL_OK;\n    }\n");    
     }
+  /* Add the AddObserver method to vtkObject. */
   if (!strcmp("vtkObject",data->ClassName))
     {
     fprintf(fp,"  if ((!strcmp(\"AddObserver\",argv[1]))&&(argc >= 4))\n    {\n");