0

有没有办法在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"
      }
   }
}

我想在bur 函数A::f之外不可见。我怎样才能做到这一点?AB

4

1 回答 1

0

Itcl 不提供朋友。

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

namespace inscope A {A::f}
于 2011-01-21T19:49:06.517 回答