0

当我想链接继承的整个类时，在 itcl 中使用链命令会使命令的响应非常慢，那么有没有其他方法可以使用基类函数感谢在 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]
    }
}

以上是他们使用链的示例，但在我的例子中，“烤面包机”类有很多方法和过程，至少有 50 个方法和 10 个过程，这使得链运行速度变慢。那么有什么替代方法吗？

4

0 回答 0