[incr Tcl] 中的静态函数继承

Question

incr Tcl 中的继承无法按预期工作。考虑下面的代码。

package require Itcl

::itcl::class Base \
{
public {
    proc function { } { puts "==== Base::function" }
}
}

::itcl::class Derived { inherit Base }

Base::function
Derived::function    ;# FAILS

最后一行失败，因此 Base::function 不会在 Derived 处继承，尽管 Derived 继承自 Base。

我做错了什么吗，还是 incr Tcl 的设计行为所以？

Answer 1

阅读文档我不认为 itcl 类中的过程按照您认为应该的方式工作：

过程名称？args？ ？身体？
声明一个名为 name 的过程。 proc 是一个普通的过程
类的命名空间。与方法不同的是，
调用过程时不引用
一个特定的对象。当 proc 体
执行后，会自动产生
仅访问公共数据成员。
如果指定了 args 列表，它将建立以下的使用信息
这个过程主体命令可以是
用于重新定义过程体，但是
args 列表必须与此匹配
规格。
在另一个类方法或过程的主体内，可以调用过程
像任何其他命令一样 - 只需使用
它的名字。在任何其他命名空间中
上下文中，该过程是使用
限定名称，如“className::proc”。
基类中的过程是
在当前类中重新定义，或者
被另一个基类隐藏，也可以
通过他们的限定名称进行访问。

我对此的理解是，过程与其类相关联，可以在派生类中引用它，但没有在其中定义。例如以下作品：

package require Itcl

::itcl::class Base {
    public {
        proc function { } { puts "==== Base::function" }
    }
}

::itcl::class Derived { 
inherit Base 
    public {

        proc function { } { 
            puts "==== Derived::function"
            return [Base::function] 
        }
    }
}

Base::function
Derived::function    ;# FAILS

Answer 2

您定义的Base::function 过程（或多或少）是命名空间Base 中的常规过程。当你在 Itcl 中继承时，你只是继承方法，而不是继承过程。在相关注释中，您不能从 Base 的实例调用 proc function，您必须像调用任何常规 proc 一样调用它。

itcl::class Base {
  public {
    proc function { } { puts "==== Base::function" }
  }
  public method test {} {
    $this function
  }
  public method test2 {} {
    function
  }
}

Base bb
bb test   ;# yields error: bad option "function"
bb test2  ;# works as expected