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$