[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}