Index: openacs-4/packages/xotcl-core/www/show-object.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/www/show-object.adp	20 Mar 2008 10:21:01 -0000	1.2
+++ openacs-4/packages/xotcl-core/www/show-object.adp	26 Mar 2008 10:57:16 -0000	1.3
@@ -37,7 +37,7 @@
 
 <h1 class="page-title">@title;noquote@</h1>
 <if @class_hierarchy@ not nil>
-<img style='float: right;' src='./show-class-graph?classes=@class_hierarchy@'>
+<img style='float: right;' src='./show-class-graph?classes=@class_hierarchy@&documented_only=@documented_only@'>
 </if>
 @output;noquote@
 
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xotcl-core/www/show-object.tcl	25 Mar 2008 13:17:57 -0000	1.13
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	26 Mar 2008 10:57:16 -0000	1.14
@@ -191,6 +191,7 @@
   if {[lsearch -exact $class_hierarchy $object] == -1} {lappend class_hierarchy $object}
   #::xotcl::Object msg class_hierarchy=$class_hierarchy
   set class_hierarchy [ns_urlencode $class_hierarchy]
+  set documented_only [expr {$show_methods < 2}]
   #set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
 }