modal.tcl   [plain text]