Posted to tcl by pooryorick at Wed Dec 13 20:59:13 GMT 2017view pretty
oo::class create c1 { method m1 {} { puts {Hi from c1} } } oo::class create c2 { method m1 args { puts {Hi from c2} } } oo::class create c3 { superclass c2 } oo::copy c1 c4 oo::define c4 { self mixin [self] superclass c3 } c4 m1