---

Class ::xo::OrderedComposite::ChildManager

::xo::OrderedComposite::ChildManager create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object

::xotcl::Class create ::xo::OrderedComposite::ChildManager \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• init (scripted)

  set r [next]
  #set parent [self callingobject] ;# not a true calling object (ns-eval), but XOTcl 1 honors it
  #set parent [:info parent] ;# is ok in XOTcl 2, since the namespace is honored correctly
  #set parent [uplevel 2 self] ;# should work everywhere
  #puts stderr "-- CONTAINS p=$parent, co=[self callingobject] n=[uplevel 2 self]"
  #
  # get the top-most composite context as parent
  set parent [lindex [[self class] set composite] end]
  $parent lappend __children [self]
  set :__parent $parent
  #:__after_insert
  #:log "-- adding __parent  $parent to [self]"
  return $r

---