|
||||||
| SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD | DETAIL: | INSTPROC | |||||
::xotcl::Object
| Variables | |||
| Name | Default Value | Class | Comment |
| Methods | |
| Name | Comment |
data {index {data ""}}
| |
nodata {index {nodata ""}}
| |
| Methods from ::xotcl::Object |
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, garbageCollect, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
|
| Instproc Detail |
index data - optional, default value: "" ::xox::test::G1 instproc data {index {data ""}} {
if { "" == "$data" } {
if { ! [ my exists data($index) ] } {
set classList [ my info class ]
set classList [ concat $classList [ $classList info heritage ] ]
foreach class $classList {
if [ $class exists data($index) ] {
return [ $class set data($index) ]
}
}
error "Could not find data in any of $classList!"
} else {
return [ my set data($index) ]
}
}
if { "" == "$data" } { return [ my set data($index) ] }
return [ my set data($index) $data ]
}
index nodata - optional, default value: "" ::xox::test::G1 instproc nodata {index {nodata ""}} {
if { "" == "$nodata" } {
if { ! [ my exists nodata($index) ] } {
set classList [ my info class ]
set classList [ concat $classList [ $classList info heritage ] ]
foreach class $classList {
if [ $class exists nodata($index) ] {
return [ $class set nodata($index) ]
}
}
error "Could not find nodata in any of $classList!"
} else {
return [ my set nodata($index) ]
}
}
if { "" == "$nodata" } { return [ my set nodata($index) ] }
return [ my set nodata($index) $nodata ]
}