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.27.2.9 -r1.27.2.10
--- openacs-4/packages/xotcl-core/www/show-object.tcl	7 Oct 2021 11:06:02 -0000	1.27.2.9
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	26 Feb 2022 14:37:39 -0000	1.27.2.10
@@ -239,6 +239,7 @@
   }
 }
 set documented_only [expr {$show_methods < 2}]
+set hide_methods [expr {$show_methods == 0}]
 
 if {[nsv_exists api_library_doc $index]} {
   array set doc_elements [nsv_get api_library_doc $index]
@@ -414,16 +415,13 @@
   # Construct the dot code from the provided classes as embedded svg
   # code.
   #
-  # TODO: it would be nice to pass the selected options from the
-  # dimensional slider to dotcode, since with svg, the dot code
-  # constructs URLs for navigation in the class tree.
-  #
   set dot_code [::xo::dotcode -dpi 72 \
                     -with_children $with_children \
                     -with_instance_relations $with_instance_relations \
                     -omit_base_classes 0 \
                     -current_object $object \
                     -documented_methods $documented_only \
+                    -hide_methods $hide_methods \
                     $class_hierarchy]
 
   set svg [util::inline_svg_from_dot -css {