Overview
| Comment: | Added missing redraw to steps table display routine |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.54 |
| Files: | files | file ages | folders |
| SHA1: |
58fcfb43bdbb290dc0e79e7f664d7f7a |
| User & Date: | mrwellan on 2013-05-09 16:25:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-05-09
| ||
| 16:37 | Added Kill Jobs button/command check-in: 901608be34 user: mrwellan tags: v1.54, v1.5427 | |
| 16:25 | Added missing redraw to steps table display routine check-in: 58fcfb43bd user: mrwellan tags: v1.54 | |
| 16:17 | NEW (old) POLICY, add back setting of test log with -step -setlog check-in: 4f6fa245d2 user: mrwellan tags: v1.54 | |
Changes
Modified dashboard-tests.scm from [eb03430679] to [c4dde7e50f].
| ︙ | ︙ | |||
439 440 441 442 443 444 445 | (rownum 1) (colnum 1)) (let ((val (vector-ref hed (- colnum 1)))) (iup:attribute-set! steps-matrix (conc rownum ":" colnum)(if val (conc val) "")) (if (< colnum 6) (loop hed tal rownum (+ colnum 1)) (if (not (null? tal)) | | > | 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 | (rownum 1) (colnum 1)) (let ((val (vector-ref hed (- colnum 1)))) (iup:attribute-set! steps-matrix (conc rownum ":" colnum)(if val (conc val) "")) (if (< colnum 6) (loop hed tal rownum (+ colnum 1)) (if (not (null? tal)) (loop (car tal)(cdr tal)(+ rownum 1) 1)))) (iup:attribute-set! steps-matrix "REDRAW" "ALL")))))) (hash-table-set! widgets "StepsMatrix" proc) (proc testdat)) steps-matrix) ;; populate the Test Data panel (iup:frame #:title "Test Data" (let ((test-data |
| ︙ | ︙ |