oo::objdefine

Posted to tcl by stu at Mon Jul 16 20:01:28 GMT 2018view raw

oo::class create A
oo::class create B
set a [A new]
foreach i [split abcdefghijklmnopqrstuvwxyz ""] {
catch {oo::objdefine $a $i B} r
puts $i:$r
}