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

  1. oo::class create A
  2. oo::class create B
  3. set a [A new]
  4. foreach i [split abcdefghijklmnopqrstuvwxyz ""] {
  5. catch {oo::objdefine $a $i B} r
  6. puts $i:$r
  7. }
  8.