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.22.2.11 -r1.22.2.12 --- openacs-4/packages/xotcl-core/www/show-object.tcl 6 Jan 2016 22:19:16 -0000 1.22.2.11 +++ openacs-4/packages/xotcl-core/www/show-object.tcl 6 Jan 2016 22:36:41 -0000 1.22.2.12 @@ -98,7 +98,7 @@ return $result } -proc info_option {scope object kind {dosort 0}} { +proc class_relation {scope object kind {dosort 0}} { upvar class_references class_references set isnx [DO xo::getObjectProperty $object isnxobject] @@ -276,16 +276,18 @@ set obj_create_source "$my_class create $object" set class_references "" +class_relation $scope $object class if {$isclass} { append obj_create_source \ - [info_option $scope $object class] \ - [info_option $scope $object superclass] \ - [info_option $scope $object instmixin] + [class_relation $scope $object superclass] \ + [class_relation $scope $object instmixin] + + class_relation $scope $object subclass } append obj_create_source \ - [info_option $scope $object mixin] + [class_relation $scope $object mixin] if {$class_references ne ""} { append output "

Class Relations

\n"