tcl-object.tcl 10 KB