有没有办法在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"
}
}
}
我想在bur 函数A::f
之外不可见。我怎样才能做到这一点?A
B