class-info.tcl

Does not contain a contract.

Location:
/packages/acs-subsite/www/admin/system/class-info.tcl

Related Files

[ hide source ] | [ make this the default ]

File Contents

Class instproc allInstances {} {
  set set [:info instances]
  foreach sc [:info subclass] {
    lappend set {*}[$sc allInstances]
  }
  return $set
}

set output "<ul>"
foreach cl [lsort [Class allInstances]] {
  append output "<li><b>$cl:</b> <ul>"
  foreach key {heritage instprocs instances} {
    append output "<li><em>[llength [$cl info $key]] $key</em> "
    if { $key eq "instances" } {
        append output "<font color='red'>[join [$cl info $key] {, }]</font>\n"
    } else {
        append output "[join [$cl info $key] {, }]\n"
    }
  }
  append output </ul>
}
append output </ul>

ns_return 200 "text/html" "<html><body><h1>Class info</h1>$output</body></html>"