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