|
||||||
SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD | DETAIL: | INSTPROC |
::xotcl::Object
Variables | |||
Name | Default Value | Class | Comment |
Methods | |
Name | Comment |
data {{data ""}}
| |
nodata {{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 |
data
- optional, default value: ""
::xox::test::G instproc data {{data ""}} { if { "" == "$data" } { if { ! [ my exists data ] } { set classList [ my info class ] set classList [ concat $classList [ $classList info heritage ] ] foreach class $classList { if [ $class exists data ] { return [ $class set data ] } } error "Could not find data in any of $classList!" } else { return [ my set data ] } } if { "" == "$data" } { return [ my set data ] } return [ my set data $data ] }
nodata
- optional, default value: ""
::xox::test::G instproc nodata {{nodata ""}} { if { "" == "$nodata" } { if { ! [ my exists nodata ] } { set classList [ my info class ] set classList [ concat $classList [ $classList info heritage ] ] foreach class $classList { if [ $class exists nodata ] { return [ $class set nodata ] } } error "Could not find nodata in any of $classList!" } else { return [ my set nodata ] } } if { "" == "$nodata" } { return [ my set nodata ] } return [ my set nodata $nodata ] }