Posted to tcl by colin at Wed May 19 14:00:23 GMT 2010view pretty
oo::class create Tuple { method fixup {tuple} { if {$tuple == 0} { my new 1 } } method new {{arg 0}} { my fixup $arg info frame -1 } } [Tuple new] new
oo::class create Tuple { method fixup {tuple} { if {$tuple == 0} { my new 1 } } method new {{arg 0}} { my fixup $arg info frame -1 } } [Tuple new] new