|
||||||
| SUMMARY: CHILDREN | PARAMETER | INSTPROC | INSTFILTER | INSTFORWARD | DETAIL: | INSTPROC | |||||
::xotcl::Object | +--::xotcl::Class
| Variables | |||
| Name | Default Value | Class | Comment |
version |
::xotcl::Class | ||
| Methods | |
| Name | Comment |
getParameter {obj name args}
| |
mkParameter {obj name args}
| |
| Methods from ::xotcl::Class |
allinstances, classParameter, classParameterArray, id, instfilterappend, instmixinappend, insttclcmd,
|
| Methods from ::xotcl::Object |
#, ., ?, ?code, ?methods, ?object, abstract, copy, coverageFilter, defaultmethod, extractConfigureArg, filterappend, get#, getClean#, hasclass, init, methodTag, mixinappend, move, profileFilter, self, setParameterDefaults, shell, tclcmd, traceFilter,
|
| Instproc Detail |
obj name args ::xotcl::Class::Parameter instproc getParameter {obj name args} {
[$obj set $name]
}
obj name args ::xotcl::Class::Parameter instproc mkParameter {obj name args} {
if {[$obj exists $name]} {
eval [$obj set $name] configure $args} else {
$obj set $name [eval ::xotcl::my new -childof $obj $args]}
}