Work on updating tcl/tk scripts