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