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.1 -r1.2
--- openacs-4/packages/xotcl-core/www/show-object.adp	11 Oct 2005 08:41:18 -0000	1.1
+++ openacs-4/packages/xotcl-core/www/show-object.adp	20 Mar 2008 10:21:01 -0000	1.2
@@ -36,6 +36,9 @@
 <hr>
 
 <h1 class="page-title">@title;noquote@</h1>
+<if @class_hierarchy@ not nil>
+<img style='float: right;' src='./show-class-graph?classes=@class_hierarchy@'>
+</if>
 @output;noquote@
 
 <hr>
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.10 -r1.11
--- 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	20 Mar 2008 10:21:01 -0000	1.11
@@ -179,6 +179,7 @@
   append output "<h4>Class Hierarchy of $object</h4>"
   #append output [superclass_hierarchy $object]
   append output [draw_as_tree [superclass_hierarchy $object $scope]]
+  set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
 }
 
 if {[nsv_exists api_library_doc $index]} {