updating tcl scripts to match with that of gui