Posted to tcl by mjanssen at Thu Jun 19 20:03:12 GMT 2008view raw

  1. oo::class create A {method a {} {puts actionA}}
  2. oo::class create AM {
  3. method a {} {puts actionAM ; next}
  4. }
  5. oo::define A mixin AM
  6. A create a
  7. % a a
  8. ActionA
  9. % a b
  10. mmh
  11. %
  12. # where did actionAM go? Mixins should be called before the instance methods. If this would be the case. Silently nooping next would not be need