Class ::xo::InstanceManager

::xo::InstanceManager[i] create ...

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xotcl::Object[i]
::xotcl::Class create ::xo::InstanceManager \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

  • alloc (scripted)

    set r [next]
    set key blueprint($r)
    if {![ns_conn isconnected]} {
      [self class] set $key 1
    } elseif {![[self class] exists $key]} {
      [self class] set connectionobject($r) 1
    }
    return $r
  • destroy (scripted)

    next
    ns_log notice "--unset -nocomplain [self class]::blueprint([self])"
    [self class] unset -nocomplain blueprint([self])
    [self class] unset -nocomplain connectionobject([self])