Posted to tcl by colin at Wed May 19 13:58:10 GMT 2010view pretty
oo::class create Tuple { method fixup {tuple} { if {[dict get $tuple type] eq "conversion"} { my new name b type type } } method new {args} { my fixup $args info frame -1 } } [Tuple new] new name moop type conversion