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