Рассмотрим код ниже.
package require Itcl
::itcl::class A \
{
private {
constructor { } { } { puts "==== at A::constructor" }
method f { } { puts "==== at A::f" }
}
}
A a ;# PASSES
a f ;# fails
Для класса A конструктор является закрытым, но все еще возможно определить объект класса A.
Я делаю что-то не так, или incr Tcl предназначен для такого поведения?