Posted to tcl by pooryorick at Wed Dec 13 20:59:13 GMT 2017view raw

  1. oo::class create c1 {
  2. method m1 {} {
  3. puts {Hi from c1}
  4. }
  5. }
  6.  
  7. oo::class create c2 {
  8. method m1 args {
  9. puts {Hi from c2}
  10. }
  11. }
  12.  
  13. oo::class create c3 {
  14. superclass c2
  15. }
  16.  
  17. oo::copy c1 c4
  18. oo::define c4 {
  19. self mixin [self]
  20. superclass c3
  21. }
  22.  
  23. c4 m1
  24.