Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1240,10 +1240,18 @@
 ;;     ((RUNNING)          "9   131 232")
 ;;     ((KILLREQ)          "39  82  206")
 ;;     ((KILLED)           "234 101 17")
 ;;     ((NOT_STARTED)      "240 240 240")
 ;;     (else               "192 192 192")))
+
+(define (common:iup-color->rgb-hex instr)
+  (string-intersperse 
+   (map (lambda (x)
+          (number->string x 16))
+        (map string->number
+             (string-split instr)))
+   "/"))
 
 (define (common:get-color-from-status status)
   (cond
    ((equal? status "PASS")    "green")
    ((equal? status "FAIL")    "red")