在itcl中我们使用一个名为chain的命令来使用基类中的方法，有没有其他方法可以使用？

Question

在itcl中使用chain命令可以很好地响应命令    当我想链接整个继承的类时，它会变慢    有任何其他方式我可以使用基类功能谢谢使用    itcl中的链命令？

itcl::class Toaster {
    variable crumbs 0
    method toast {nslices} {
        if {$crumbs > 50} {
            error "== FIRE! FIRE! =="
        }
        set crumbs [expr $crumbs+4*$nslices]
    }
    method clean {} {
        set crumbs 0
    }
}
itcl::class SmartToaster {
    inherit Toaster
    method toast {nslices} {
        if {$crumbs > 40} {
            clean
        }
        return [Toaster::toast $nslices]
    }
}

itcl::class SmartToaster {
    inherit Toaster
    method toast {nslices} {
        if {$crumbs > 40} {
            clean
        }
        return [chain $nslices]
    }
}

以上是他们使用过链的例子，但在我的情况下    班级＆＃34;烤面包机＆＃34;它有很多方法和过程，    至少有50种方法和10种方法正在制造连锁经营    慢点。所以替代这个吗？