Overview
| Comment: | Added iup color to rgb hex conversion function |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62 |
| Files: | files | file ages | folders |
| SHA1: |
cc5e6b353d0a2b76fc1e8ecdf3eaa8b7 |
| User & Date: | matt on 2016-11-04 11:12:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-11-04
| ||
| 11:14 | Bumped version check-in: 482fb399b7 user: matt tags: v1.62, v1.6208 | |
| 11:12 | Added iup color to rgb hex conversion function check-in: cc5e6b353d user: matt tags: v1.62 | |
|
2016-11-03
| ||
| 23:47 | Set up cxt check-in: 581a0d357c user: mrwellan tags: v1.62 | |
Changes
Modified common.scm from [2ba73d26a3] to [3661dd25c9].
| ︙ | ︙ | |||
1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 | ;; ((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 (common:get-color-from-status status) (cond ((equal? status "PASS") "green") ((equal? status "FAIL") "red") ((equal? status "WARN") "orange") ((equal? status "KILLED") "orange") | > > > > > > > > | 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 |
;; ((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 (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")
((equal? status "WARN") "orange")
((equal? status "KILLED") "orange")
|
| ︙ | ︙ |