Posted to tcl by stu at Mon Jul 16 20:01:28 GMT 2018view pretty
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 }
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 }