[Mailman-Users] Where is "create" source code?

[Alex Wu]

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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.python.org/pipermail/mailman-users/attachments/20030106/87abf73c/attachment.htm