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.3 -r1.4
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl	25 Mar 2008 13:17:57 -0000	1.3
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl	25 Mar 2008 22:50:37 -0000	1.4
@@ -6,6 +6,7 @@
 } -query {
   {classes}
   {documented_only 1}
+  {with_children 0}
 }
 
 ::xotcl::Object instproc dotquote {e} {
@@ -68,9 +69,11 @@
   foreach e $things {
     if {![my isobject $e]} continue
     if {$omit_base_classes && $e eq "::xotcl::Object" || $e eq "::xotcl::Class"} continue
-    foreach c [$e info children] {
-      if {[lsearch $things $c] == -1} continue
-      append children "[my dotquote $c]->[my dotquote $e];\n"
+    if {$with_children} {
+      foreach c [$e info children] {
+        if {[lsearch $things $c] == -1} continue
+        append children "[my dotquote $c]->[my dotquote $e];\n"
+      }
     }
     set m [$e info mixin]
     #puts "-- $e mixin $m"
@@ -127,7 +130,7 @@
 catch {set dot [::util::which dot]}
 # final ressort for cases, where ::util::which is not available
 if {$dot eq "" && [file executable /usr/bin/dot]} {set dot /usr/bin/dot}
-if {$dot eq ""} {ns_return 404 plain/text "do dot found"}
+if {$dot eq ""} {ns_return 404 plain/text "do dot found"; ad_script_abort}
 
 set tmpfile [ns_tmpnam].png
 set f [open "|$dot  -Tpng -o $tmpfile" w]