[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がBのAバリ機能外見えないようにしたいです。どうすればこれを達成できますか？

Answer 1

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

あなたがそうのように、namespace inscopeを使用して通話を構築することにより、これを回避ハックすることができます

namespace inscope A {A::f}