Есть ли способ подружить классы [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 был невидимым вне A функций бора B. Как мне этого добиться?

Answer 1

Itcl не предоставляет друзей.

Вы можете обойти это, построив вызов, используя namespace inscope, например:

namespace inscope A {A::f}