Overview
| Comment: | - is for running step, not completed |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
5834a7acc8eaf3139a43dac4f56bb59a |
| User & Date: | bjbarcla on 2018-12-06 12:00:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-12-06
| ||
| 12:01 | bumped to v1.6515 check-in: a5596b73e4 user: bjbarcla tags: v1.65 | |
| 12:00 | - is for running step, not completed check-in: 5834a7acc8 user: bjbarcla tags: v1.65 | |
|
2018-12-05
| ||
| 16:28 | merged feature to preserve environment for test control panel execute button check-in: 74324f583b user: bjbarcla tags: v1.65, v1.6517 | |
Changes
Modified dcommon.scm from [fc7423a843] to [5e9ba2ba2c].
| ︙ | ︙ | |||
1269 1270 1271 1272 1273 1274 1275 |
(tal (cdr teststeps))
(rownum 1)
(colnum 1))
(if (> rownum max-row)(set! max-row rownum))
(let* ((status (vector-ref hed 3))
(val (vector-ref hed (- colnum 1)))
(bgcolor (cond
| | | | 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 |
(tal (cdr teststeps))
(rownum 1)
(colnum 1))
(if (> rownum max-row)(set! max-row rownum))
(let* ((status (vector-ref hed 3))
(val (vector-ref hed (- colnum 1)))
(bgcolor (cond
((member (conc status) '("" "-" "#<unspecified>"))
running-color)
((member (conc status) '("0" 0))
white)
(else failcolor)))
(mtrx-rc (conc rownum ":" colnum)))
;;(print "BB> status=>"status"< bgcolor="bgcolor)
(iup:attribute-set! steps-matrix mtrx-rc (if val (conc val) ""))
(if (< colnum 5)
(iup:attribute-set! steps-matrix (conc "BGCOLOR" mtrx-rc) bgcolor))
|
| ︙ | ︙ |