Object ::xotcl::Attribute::slot (public)

 ::nx::Object ::xotcl::Attribute::slot[i]

Defined in packages/xotcl-core/tcl/01-debug-procs.tcl

  • multivaluedC
  • substdefaultC

Testcases:
No testcase defined.
Source code:
::nx::slotObj -container slot ::xotcl::Attribute

::nsf::object::alloc ::nx::VariableSlot ::xotcl::Attribute::slot::multivalued {array set :__cmd {__initblock {
      #
      # The slot object is an nx object, therefore, we need the nx
      # "set" variant no matter what xotcl2 uses.
      #
      :public object method value=set {object property value} {
    set mClass [expr {$value ? "0..n" : "1..1"}]
    $object configure -incremental $value -multiplicity $mClass
      }
      :public object method value=get {object property} {
    return [$object eval [list :isMultivalued]]
      }
    }}
   set :accessor public
   set :configurable true
   set :convert false
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xotcl::Attribute
   set :forwardername multivalued
   set :incremental 0
   set :manager ::xotcl::Attribute::slot::multivalued
   set :methodname multivalued
   set :multiplicity 1..1
   set :name multivalued
   set :parameterSpec -multivalued:slot=::xotcl::Attribute::slot::multivalued,slotset
   set :per-object false
   set :position 0
   set :required false
   set :trace none
   : init}
::xotcl::Attribute::slot::multivalued public object method value=get {object property} {
    return [$object eval [list :isMultivalued]]
      }
::xotcl::Attribute::slot::multivalued public object method value=set {object property value} {
    set mClass [expr {$value ? "0..n" : "1..1"}]
    $object configure -incremental $value -multiplicity $mClass
      }

::nsf::object::alloc ::nx::VariableSlot ::xotcl::Attribute::slot::substdefault {array set :__cmd {__initblock {}}
   set :accessor none
   set :configurable true
   set :convert false
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xotcl::Attribute
   set :incremental 0
   set :manager ::xotcl::Attribute::slot::substdefault
   set :methodname substdefault
   set :multiplicity 1..1
   set :name substdefault
   set :parameterSpec -substdefault
   set :per-object false
   set :position 0
   set :required false
   set :trace none
   : init}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: