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