Oop 有没有办法结交[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:：f

在

A

之外不可见，但

B

的函数除外。我如何才能做到这一点？

Itcl不提供朋友

您可以通过如下方式构造调用来绕过此问题：

namespace inscope A {A::f}