|
||||||
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 ""}}
| |
e {index {e ""}}
|
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::A1 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::A1 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::A1 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::A1 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 ] }
index
e
- optional, default value: ""
::xox::test::A1 instproc e {index {e ""}} { if { "" == "$e" } { if { ! [ my exists e($index) ] } { set classList [ my info class ] set classList [ concat $classList [ $classList info heritage ] ] foreach class $classList { if [ $class exists e($index) ] { return [ $class set e($index) ] } } error "Could not find e in any of $classList!" } else { return [ my set e($index) ] } } if { "" == "$e" } { return [ my set e($index) ] } return [ my set e($index) $e ] }