oop - [incr Tcl] クラスの友達を作る方法はありますか?

Question

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外から見えないようにしたい。どうすればこれを達成できますか？AB

Answer 1

Itclは友達を提供しません。

namespace inscope次のように、を使用して呼び出しを作成することで、これを回避できます。

namespace inscope A {A::f}