object-edit-2.tcl