Posted to tcl by dgp at Thu Jun 25 17:28:25 GMT 2015view pretty

$ 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)