---

Class Relations

• class: ::xotcl::Object

::xotcl::Object create ::xotcl::classInfo

Methods (to be applied on the object)

• args (alias)

• body (alias)

• check (alias)

• children (alias)

• class (alias)

• classchildren (alias)

• classparent (alias)

• commands (alias)

• default (scripted)

  #
  # We are called from object "classInfo". The true caller is 2
  # levels up.
  #
  :upvar 2 $varName defaultVar
  set r [::xotcl::info_default object [self] $method $arg defaultVar]
  #puts "--- classInfo default: var '$varName' level=[info level] result $r exists [info exists defaultVar]"
  #if {$r == 1 && ![info exists defaultVar]} {error inconsistency}
  return $r

• filter (alias)

• filterguard (alias)

• forward (alias)

• hasnamespace (alias)

• heritage (scripted)

  set cmd [list ::nsf::methods::class::info::superclass -closure]
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• info (scripted)

  ::nx::internal::infoOptions ::xotcl::classInfo

• instances (alias)

• instargs (scripted)

  ::xotcl::info_args class [self] $method

• instbody (scripted)

  my ::nsf::methods::class::info::method body $methodName

• instcommands (scripted)

  set cmd [list ::nsf::methods::class::info::methods]
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• instdefault (scripted)

  #
  # We are called from object "classInfo". The true caller is 2
  # levels up.
  #
  :upvar 2 $varName defaultVar
  set r [::xotcl::info_default class [self] $method $arg defaultVar]
  #puts "--- classInfo instdefault: var '$varName' level=[info level]"
  #if {$r == 1 && ![info exists defaultVar]} {error inconsistency}
  return $r

• instfilter (alias)

• instfilterguard (alias)

• instforward (scripted)

  if {$definition} {
      if {![info exists name]} {error "option -definition requires name of forwarding method to be specified" }
      set def [my ::nsf::methods::class::info::forward -definition $name]
      return [::xotcl::info_forward_options $def]
  } else {
      return [my ::nsf::methods::class::info::forward {*}[self args]]
  }

• instinvar (scripted)

  ::nsf::method::assertion [self] class-invar

• instmixin (scripted)

  set cmd ::nsf::methods::class::info::mixins
  if {$order} {lappend cmd "-heritage"}
  if {$guards} {lappend cmd "-guards"}
  if {[info exists pattern]} {lappend cmd $pattern}
  my {*}$cmd

• instmixinguard (alias)

• instmixinof (scripted)

  set cmd [list ::nsf::methods::class::info::mixinof -scope class]
  if {$closure} {lappend cmd -closure}
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• instnonposargs (scripted)

  ::xotcl::info_nonposargs class [self] $method

• instparametercmd (scripted)

  set cmd [list ::nsf::methods::class::info::methods -type setter]
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• instpost (scripted)

  my ::nsf::methods::class::info::method postcondition $methodName

• instpre (scripted)

  my ::nsf::methods::class::info::method precondition  $methodName

• instprocs (scripted)

  set cmd [list ::nsf::methods::class::info::methods -type scripted]
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• invar (alias)

• methods (alias)

• mixin (alias)

• mixinguard (alias)

• mixinof (scripted)

  set cmd [list ::nsf::methods::class::info::mixinof -scope object]
  if {$closure} {lappend cmd -closure}
  if {[info exists pattern]} {lappend cmd $pattern}
  return [my {*}$cmd]

• nonposargs (alias)

• parameter (scripted)

  set slotContainer [::nx::slotObj [::nsf::self]]
  if {[::nsf::var::exists $slotContainer __parameter]} {
      return [::nsf::var::set $slotContainer __parameter]
  }
  return ""

• parametercmd (alias)

• parent (alias)

• post (alias)

• pre (alias)

• precedence (alias)

• procs (alias)

• slots (alias)

• subclass (alias)

• superclass (alias)

• unknown (scripted)

  error "[::xotcl::self] unknown info option \"$method\"; [:info info]"

• vars (alias)

---