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