various usefull TCL/TK functions