6 Jan
2003
6 Jan
'03
11:09 a.m.
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.
7771
Age (days ago)
7773
Last active (days ago)
1 comments
2 participants
participants (2)
-
Alex Wu
-
Todd