[incr Tcl]のコンストラクタを非表示にできない

Question

以下のコードを検討してください。クラスAについては

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のオブジェクトを定義することも可能です。

私は何か間違ったことをしていますか、またはincr Tclはそのように動作するように設計されていますか？

Answer 1

あなたはクラスの仕様を見れば、私は、これは道のITCLの仕事であると考えている：

itcl::class className { 
inherit baseClass ?baseClass...? 
constructor args ?init? body 
destructor body 
method name ?args? ?body? 
proc name ?args? ?body? 
variable varName ?init? ?config? 
common varName ?init? 
public command ?arg arg ...? 
protected command ?arg arg ...? 
private command ?arg arg ...? 
set varName ?value? 
array option ?arg arg ...? 
} 
className objName ?arg arg ...? 
objName method ?arg arg ...? 
className::proc ?arg arg ...? 

あなたが保護/プライベートがconstrcutorまたはデストラクタにコマンドではなくするために適用できることがわかります。 itclデザインパターンのドキュメントにあるhereを見ると、プライベートコンストラクタの近くで何かを達成する方法についての手がかりも与えられます。