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