Made program line highlight change color based on TM state

tm/gui.rkt

@@ -44,8 +44,12 @@
                (tape-cell tape-idx (tape-at tm tape-idx)
                           (= tape-idx (tape-pos tape))))))))
 
+(define YELLOW (make-color 240 198 116))
+(define GREEN  (make-color 185 202 74))
+(define RED    (make-color 204 102 102))
+
 ; render single line from program listing
-(define (program-line linestr [in-focus? #f])
+(define (program-line linestr state [in-focus? #f])
   (overlay/align "left" "middle"
    (text/font linestr
               18 "black"
@@ -53,7 +57,10 @@
               "modern" "normal" "normal" #f)
    (rectangle (* TAPE-WIDTH 40) 30 "solid"
               (if in-focus?
-                  (make-color 240 198 116)
+                  (match state
+                    ['accept  GREEN]
+                    ['reject  RED]
+                    ['running YELLOW])
                   "white"))))
 
 ; display 10 lines at a time
@@ -70,7 +77,8 @@
               ""
               ;(string-append (~r i #:min-width 4) " "
               (stmt->string
-               (vector-ref (tm-config-program tm) i)));)
+               (vector-ref (tm-config-program tm) i)))
+          (tm-config-state tm)
           (= i (tm-config-line-no tm)))))))
 
 (define (render-status tm)