|
||||||
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 ] }