tcl-object.tcl :

proc new { className args } { set o [SplitObject getid] if [catch "$className create $o $args" msg] { if [string match "__FAILED_SHADOW_OBJECT_" $msg] { # The shadow object failed to be allocated. delete $o return "" } global errorInfo error "class $className: constructor failed: $msg" $errorInfo } return $o

This is the procedure new in tcl-object.tcl file. The procedure new calls a create command. I wanna see the create's source code. Would you please tell me where the source is? Thank you.