@@ -20,23 +20,24 @@
   (let* ((c1 (map string->number (string-split color1)))
 	 (c2 (map string->number (string-split color2)))
 	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))
     (null? (filter (lambda (x)(> x 3)) delta))))
 
-(define (gutils:get-color-for-state-status state status)
-  (case (string->symbol state)
-    ((COMPLETED)
-     (if (equal? status "PASS")
-	 "70 249 73"
-	 (if (or (equal? status "WARN")
-		 (equal? status "WAIVED"))
-	     "255 172 13"
-	     "223 33 49"))) ;; greenish orangeish redish
-    ((LAUNCHED)         "101 123 142")
-    ((CHECK)            "255 100 50")
-    ((REMOTEHOSTSTART)  "50 130 195")
-    ((RUNNING)          "9 131 232")
-    ((KILLREQ)          "39 82 206")
-    ((KILLED)           "234 101 17")
-    ((NOT_STARTED)      "240 240 240")
-    (else               "192 192 192")))
+(define (gutils:get-color-for-state-status state status);; #!key (get-label #f))
+  ;; ((if get-label cadr car)
+   (case (string->symbol state)
+     ((COMPLETED)
+      (if (equal? status "PASS")
+	  '("70 249 73" "PASS")
+	  (if (or (equal? status "WARN")
+		  (equal? status "WAIVED"))
+	      (list "255 172 13" status)
+	      (list "223 33 49"  status)))) ;; greenish orangeish redish
+     ((LAUNCHED)         (list "101 123 142"  state))
+     ((CHECK)            (list "255 100 50"   state))
+     ((REMOTEHOSTSTART)  (list "50 130 195"   state))
+     ((RUNNING)          (list "9 131 232"    state))
+     ((KILLREQ)          (list "39 82 206"    state))
+     ((KILLED)           (list "234 101 17"   state))
+     ((NOT_STARTED)      (list "240 240 240"  state))
+     (else               (list "192 192 192"  state))))