When /p/ has error /err/ with info /info/ { When the clock time is /t/ { if {[expr {(int($t * 5)) % 2}] == 1} { Wish $p is outlined white } else { Wish $p is outlined red } } Wish $p has title $err }