wish < tcl/TCLModal.tcl | syntmono ModalBar -or -ip