xotcl::Attribute method defineIncrementalOperations (protected)

 <instance of xotcl::Attribute> defineIncrementalOperations \
    options_single options

Defined in

Just define these setter methods, when these are not defined jet. We need the methods as well for e.g. private properties, where the setting of the property is handled via slot.

Parameters:

options_single (required)

options (required)

Testcases:

No testcase defined.

Source code:

if {[:info lookup method value=set] eq "::nsf::classes::xotcl::Attribute::value=set"} {
    set args [list obj var [:namedParameterSpec {} value $options]]
    :public object method value=set $args {::nsf::var::set $obj $var $value}
}
if {[:isMultivalued] && [:info lookup method value=add] eq "::nsf::classes::nx::VariableSlot::value=add"} {
    lappend options_single slot=[::nsf::self]
    set args [list obj prop [:namedParameterSpec {} value $options_single] {pos 0}] 
    :public object method value=add $args {::nsf::next}
} else {
    # TODO should we deactivate add/delete?
}

XQL Not present:

Generic, PostgreSQL, Oracle