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