Posted to tcl by hypnotoad at Fri May 10 17:23:39 GMT 2019view raw

  1. basra:uIliad seandeelywoods$ cat test.tcl
  2. oo::class create A {
  3. method q {} {
  4. puts "[self method] of [self class]"
  5. }
  6. }
  7. oo::class create B {
  8. superclass A
  9. method qz {} {
  10. my q
  11. }
  12. }
  13. [B new] qz
  14. basra:uIliad seandeelywoods$ tclsh test.tcl
  15. q of ::A
  16. basra:uIliad seandeelywoods$