---

Class Relations

• class: ::xotcl::Object

::xotcl::Object create ::xotcl::objectInfo

Methods (to be applied on the object)

• args (scripted)

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

• body (scripted)

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

• check (scripted)

  ::xotcl::checkoption_internal_to_xotcl1 [::nsf::method::assertion [self] check]

• children (alias)

• class (alias)

• commands (scripted)

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

• default (scripted)

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

• filter (scripted)

  set guardsFlag [expr {$guards ? "-guards" : ""}]
  set patternArg [expr {[info exists pattern] ? [list $pattern] : ""}]
  if {$order && !$guards} {
    set def [::nsf::directdispatch [::nsf::current object]  ::nsf::methods::object::info::lookupfilters  {*}$guardsFlag  {*}$patternArg]
    set def [method_handles_to_xotcl $def]
  } else {
    set def [::nsf::directdispatch [::nsf::current object]  ::nsf::methods::object::info::filters  {*}$guardsFlag  {*}$patternArg]
  }
  #puts stderr "  => $def"
  return $def

• filterguard (alias)

• forward (scripted)

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

• hasnamespace (alias)

• info (scripted)

  ::nx::internal::infoOptions ::xotcl::objectInfo

• invar (scripted)

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

• methods (scripted)

  set type all
  if {$nocmds} {set type scripted}
  if {$noprocs} {if {$nocmds} {return ""}; set type builtin}
  set cmd [list ::nsf::methods::object::info::lookupmethods -type $type]
  if {$nomixins} {lappend cmd -nomixins}
  if {$incontext} {lappend cmd -incontext}
  if {[info exists pattern]} {lappend cmd $pattern}
  my {*}$cmd

• mixin (scripted)

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

• mixinguard (alias)

• nonposargs (scripted)

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

• parametercmd (scripted)

  ::nsf::classes::nx::Object::setter [self] $name

• parent (alias)

• post (scripted)

  my ::nsf::methods::object::info::method post $methodName

• pre (scripted)

  my ::nsf::methods::object::info::method pre  $methodName

• precedence (alias)

• procs (scripted)

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

• slots (alias)

• unknown (scripted)

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

• vars (alias)

---