有没有办法让[incr Tcl]课成为朋友?

时间:2011-01-21 18:32:16

标签: oop tcl private friend incr-tcl

有没有办法在incr Tcl中获得类之间的友谊?

请考虑以下代码。

package require Itcl

::itcl::class A {
   private {
      proc f { } {
         puts "==== A::f"
      }
   }
}

::itcl::class B {
   public {
      proc g { } {
         puts "==== want to be able to call A::f"
      }
   }
}

我希望A::fA的{​​{1}} bur函数之外隐藏B。我怎样才能做到这一点?

1 个答案:

答案 0 :(得分:0)

Itcl不提供朋友。

您可以通过使用namespace inscope构建呼叫来解决此问题,如下所示:

namespace inscope A {A::f}