virtual-programs/errors.folk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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 is titled $err
}

When /p/ has warning /w/ with info /info/ {
    When the clock time is /t/ {
        if {[expr {(int($t * 5)) % 2}] != 1} {
            Wish $p is outlined yellow
        }
    }
    Wish $p is titled $w
}