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

basra:uIliad seandeelywoods$ cat test.tcl 
oo::class create A {
  method q {} {
    puts "[self method] of [self class]"
  }
}
oo::class create B {
  superclass A
  method qz {} {
    my q
  }
}
[B new] qz
basra:uIliad seandeelywoods$ tclsh test.tcl 
q of ::A
basra:uIliad seandeelywoods$