Posted to tcl by pooryorick at Thu Aug 30 20:26:45 GMT 2018view raw

  1. oo::class create A {
  2. constructor {} {
  3. set var1 hello
  4. }
  5. method m2 {} {
  6. return $var1
  7. }
  8. }
  9.  
  10. oo::define A {
  11. variable var1
  12. }
  13.  
  14. oo::class create C {
  15. variable var1
  16. method cm1 {} {
  17. return $var1
  18. }
  19. }
  20.  
  21. oo::class create B {
  22. superclass A
  23. variable var1
  24. method m1 {} {
  25. my m2
  26. }
  27. }
  28.  
  29. oo::define B {
  30. mixin C
  31. }
  32.  
  33. B create b1
  34.  
  35. puts [b1 m1]
  36. puts [b1 cm1]
  37.