Posted to tcl by colin at Wed May 19 13:58:10 GMT 2010view raw
- 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