Posted to tcl by colin at Wed May 19 13:58:10 GMT 2010view raw

  1. oo::class create Tuple {
  2. method fixup {tuple} {
  3. if {[dict get $tuple type] eq "conversion"} {
  4. my new name b type type
  5. }
  6. }
  7.  
  8. method new {args} {
  9. my fixup $args
  10. info frame -1
  11. }
  12. }
  13.  
  14. [Tuple new] new name moop type conversion