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 -N -r1.10 -r1.10.2.1
--- openacs-4/packages/xotcl-core/www/show-object.tcl 9 Dec 2007 21:19:53 -0000 1.10
+++ openacs-4/packages/xotcl-core/www/show-object.tcl 26 Mar 2008 13:44:45 -0000 1.10.2.1
@@ -179,6 +179,20 @@
append output "
Class Hierarchy of $object
"
#append output [superclass_hierarchy $object]
append output [draw_as_tree [superclass_hierarchy $object $scope]]
+ #set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
+ #
+ # compute list of classes with siblings
+ set class_hierarchy [list]
+ foreach c [$object info superclass] {
+ if {$c eq "::xotcl::Object"} {continue}
+ eval lappend class_hierarchy [$c info subclass]
+ }
+ eval lappend class_hierarchy [$object info heritage]
+ 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]]]
}
if {[nsv_exists api_library_doc $index]} {