Posted to tcl by dgp at Thu Jun 25 17:28:25 GMT 2015view raw
- $ cat del2.tcl
- oo::class create One {
- method a {} {puts A}
- }
- oo::class create Two {
- superclass One
- method b {} {puts B}
- }
- Two create two
- two a
- two b
- two c
- $ tclsh del2.tcl
- A
- B
- unknown method "c": must be a, b or destroy
- while executing
- "two c"
- (file "del2.tcl" line 13)