A visual chat program written in Tcl/Tk