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