Posted to tcl by dgp at Thu Jun 25 17:28:25 GMT 2015view raw

  1.  
  2. $ cat del2.tcl
  3.  
  4. oo::class create One {
  5. method a {} {puts A}
  6. }
  7. oo::class create Two {
  8. superclass One
  9. method b {} {puts B}
  10. }
  11.  
  12. Two create two
  13. two a
  14. two b
  15. two c
  16.  
  17. $ tclsh del2.tcl
  18. A
  19. B
  20. unknown method "c": must be a, b or destroy
  21. while executing
  22. "two c"
  23. (file "del2.tcl" line 13)
  24.