Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -r1.7 -r1.7.10.1
--- openacs-4/packages/xotcl-core/www/index.tcl 8 Aug 2007 09:57:17 -0000 1.7
+++ openacs-4/packages/xotcl-core/www/index.tcl 16 Sep 2014 21:50:10 -0000 1.7.10.1
@@ -36,7 +36,7 @@
proc info_classes {cl key {dosort 0}} {
upvar all_classes all_classes
set infos ""
- set classes [$cl info $key]
+ set classes [::xo::getObjectProperty $cl $key]
if {$dosort} {
set classes [lsort $classes]
}
@@ -52,7 +52,11 @@
}
set output "
"
-foreach cl [lsort [::xotcl::Class allinstances]] {
+set classes [::xotcl::Class allinstances]
+if {[info commands ::nx::Class] ne ""} {
+ lappend classes {*}[nx::Class info instances -closure]
+}
+foreach cl [lsort $classes] {
if {!$all_classes && [string match "::xotcl::*" $cl]} \
continue
@@ -63,9 +67,9 @@
append output [info_classes $cl mixin]
append output [info_classes $cl instmixin]
- foreach key {procs instprocs} {
+ foreach key {proc instproc} {
set infos ""
- foreach i [lsort [$cl info $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
+ foreach i [lsort [::xo::getObjectProperty $cl $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
set infos [string trimright $infos ", "]
if {$infos ne ""} {
append output "- $key: $infos
\n"