<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=big5">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=MingLiu size=2>tcl-object.tcl :</FONT></DIV>
<DIV><FONT face=MingLiu size=2></FONT> </DIV>
<DIV><FONT face=MingLiu size=2>proc new { className args } {<BR> set o
[SplitObject getid]<BR> if [catch "$className <FONT size=5>create</FONT> $o
$args" msg] {<BR> if [string match "__FAILED_SHADOW_OBJECT_" $msg]
{<BR> # The shadow object failed to be
allocated.<BR> delete $o<BR> return
""<BR> }<BR> global errorInfo<BR> error "class
$className: constructor failed: $msg" $errorInfo<BR> }<BR> return
$o</FONT></DIV>
<DIV><FONT face=細明體 size=2></FONT> </DIV>
<DIV><FONT face=細明體 size=2>
<DIV><FONT face=MingLiu size=2>This is the procedure new in tcl-object.tcl
file.</FONT></DIV>
<DIV><FONT face=細明體 size=2>The procedure new calls a create
command.</FONT></DIV></FONT></DIV>
<DIV><FONT face=細明體 size=2>I wanna see the create's source code.</FONT></DIV>
<DIV><FONT face=細明體 size=2>Would you please tell me where the source
is?</FONT></DIV>
<DIV><FONT face=細明體 size=2>Thank you.</FONT></DIV></BODY></HTML>