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