add some tcl scripts, mainly in singleTbAse.tcl