Index: openacs-4/packages/xotcl-core/www/show-class-graph.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-class-graph.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl	20 Mar 2008 13:49:02 -0000	1.2
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl	25 Mar 2008 13:17:57 -0000	1.3
@@ -16,6 +16,23 @@
   foreach e $l { lappend result \"$e\" }
   return $result
 }
+::xotcl::Object instproc dot_append_method {{-documented_methods 1} e methods_ref kind} {
+  my upvar $methods_ref methods
+  set infokind $kind
+  if {$kind eq "instproc"} {append infokind s}
+  ::xotcl::api scope_from_object_reference scope e
+  foreach method [$e info $infokind] {
+    if {$documented_methods} {
+      set proc_index [::xotcl::api proc_index $scope $e $kind $method]
+      #my msg "check $method => [nsv_exists api_proc_doc $proc_index]"
+      if {[nsv_exists api_proc_doc $proc_index]} {
+        lappend methods $method
+      }
+    } else {
+      lappend methods $method
+    }
+  }
+}
 ::xotcl::Object instproc dotcode {{-omit_base_classes 1} {-documented_methods 1} things} {
   set classes [list]
   set objects [list]
@@ -75,15 +92,11 @@
     }
     append tclasses "|"
     ::xotcl::api scope_from_object_reference scope e
-    foreach method [lsort [$e info instprocs]] {
-      if {$documented_methods} {
-         set proc_index [::xotcl::api proc_index $scope $e instproc $method]
-         if {[nsv_exists api_proc_doc $proc_index]} {
-	   append tclasses "$method\\l"
-         }
-       } else {
-	 append tclasses "$method\\l"
-       }
+    set methods [list]
+    my dot_append_method -documented_methods $documented_methods $e methods instproc
+    my dot_append_method -documented_methods $documented_methods $e methods instforward
+    foreach method [lsort $methods] {
+      append tclasses "$method\\l"
     }
     append tclasses "\}\"\];"
   }