fork download
  1. Object subclass: B [
  2. bar [ ^'B >> bar' ]
  3. ]
  4.  
  5. B class extend [
  6. foo [ ^'B class >> foo' ]
  7. bar [ ^'B class >> bar' ]
  8. ]
  9.  
  10. B subclass: C [
  11. bar [ ^'C >> bar' ]
  12. ]
  13.  
  14. C class extend [
  15. bar [ ^'C class >> bar' ]
  16. ]
  17.  
  18. C foo displayNl.
  19. "((C class >> #foo) valueWithReceiver: C withArguments: #()) displayNl. => error: key not found "
  20. C bar displayNl.
  21. ((B class >> #bar) valueWithReceiver: C withArguments: #()) displayNl.
  22. "C new foo displayNl. => error: did not understand #foo "
  23. C new bar displayNl.
  24. ((B >> #bar) valueWithReceiver: C new withArguments: #()) displayNl.
Success #stdin #stdout 0.01s 7944KB
stdin
Standard input is empty
stdout
B class >> foo
C class >> bar
B class >> bar
C >> bar
B >> bar