edit tcl