Posted to tcl by colin at Wed May 19 14:00:23 GMT 2010view raw

  1. oo::class create Tuple {
  2. method fixup {tuple} {
  3. if {$tuple == 0} {
  4. my new 1
  5. }
  6. }
  7.  
  8. method new {{arg 0}} {
  9. my fixup $arg
  10. info frame -1
  11. }
  12. }
  13.  
  14. [Tuple new] new