|
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. |
------------------------------------------------------ Mailman-Users mailing list [EMAIL PROTECTED] http://mail.python.org/mailman/listinfo/mailman-users Mailman FAQ: http://www.python.org/cgi-bin/faqw-mm.py Searchable Archives: http://www.mail-archive.com/mailman-users%40python.org/
This message was sent to: archive@jab.org Unsubscribe or change your options at http://mail.python.org/mailman/options/mailman-users/archive%40jab.org
