wish < tcl/Modal.tcl | demo ModalBar -or -ip