---

Class Relations

• class: ::nx::serializer::ObjectSystemSerializer

::nx::serializer::ObjectSystemSerializer create ::nx::serializer::xotcl

Methods (to be applied on the object)

• serialize-all-end (scripted)

  return "[next]\n::nsf::method::alias ::xotcl::Object trace -frame object ::trace\n"

• serialize-all-start (scripted)

  set intro [subst {
    if {\[info commands ::xotcl::Object\] ne ""
        && \[info command ::nx::serializer::Serializer\] ne ""
      } {
      ::nx::serializer::Serializer finalize_application_classes [self]
    } else {
      package require XOTcl 2.0
    }
  }]
  if {[info command ::Object] ne "" && [namespace origin ::Object] eq "::xotcl::Object"} {
    append intro "\nnamespace import -force ::xotcl::*"
  }
  return "$intro\n::xotcl::Object instproc trace args {}\n[next]"

• serializeExportedMethod (scripted)

  set :targetName $object
  set code ""
  switch $kind {
    "" - inst {
      # legacy; kind is prefix
      set code [:method-serialize $object $name $kind $s]\n
    }
    proc - instproc {
      if {[$object info ${kind}s $name] ne ""} {
        set prefix [expr {$kind eq "proc" ? "" : "inst"}]
        set code [:method-serialize $object $name $prefix $s]\n
      }
    }
    forward - instforward {
      if {[$object info $kind $name] ne ""} {
        set code [concat [list $object] $kind $name [$object info $kind -definition $name]]\n
      }
    }
  }
  return $code

---