Posted to tcl by dizach at Wed Mar 24 11:14:28 GMT 2010view raw

  1. proc ::oo::InfoClass::isa {what class item} {
  2. switch -glob -- $what {
  3. "meth*" {
  4. return [expr {![catch { info class definition $class $item }]}]
  5. }
  6. "for*" {
  7. return [expr {![catch {info class forward $class $item}]}]
  8. }
  9. default {
  10. return -code error "$what is not known to $class"
  11. }
  12. }
  13. }