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 -r1.4 -r1.5
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl	25 Mar 2008 22:50:37 -0000	1.4
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl	26 Mar 2008 10:03:51 -0000	1.5
@@ -34,7 +34,7 @@
     }
   }
 }
-::xotcl::Object instproc dotcode {{-omit_base_classes 1} {-documented_methods 1} things} {
+::xotcl::Object instproc dotcode {{-with_children 0} {-omit_base_classes 1} {-documented_methods 1} things} {
   set classes [list]
   set objects [list]
 
@@ -125,7 +125,7 @@
 }"
 }
 
-set dot_code [::xotcl::Object dotcode -documented_methods $documented_only $classes]
+set dot_code [::xotcl::Object dotcode -with_children $with_children -documented_methods $documented_only $classes]
 set dot ""
 catch {set dot [::util::which dot]}
 # final ressort for cases, where ::util::which is not available