Posted to tcl by hypnotoad at Fri May 10 17:23:39 GMT 2019view raw
- 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$