Overview
Comment: | fixed slider; tweaked some diff state colors |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | xor-two-runs |
Files: | files | file ages | folders |
SHA1: |
81a014242f263f5fbe236035bb4696bc |
User & Date: | bjbarcla on 2016-09-06 16:14:25 |
Other Links: | branch diff | manifest | tags |
Context
2016-09-07
| ||
15:32 | merged 1.62 Leaf check-in: 6a17d0fc67 user: bjbarcla tags: xor-two-runs | |
2016-09-06
| ||
16:14 | fixed slider; tweaked some diff state colors check-in: 81a014242f user: bjbarcla tags: xor-two-runs | |
12:58 | xor looking good; still need to fixup slider lock issue check-in: 95351f9ba6 user: bjbarcla tags: xor-two-runs | |
Changes
Modified dashboard.scm from [36f4a3ef63] to [4478a2f511].
︙ | ︙ | |||
1168 1169 1170 1171 1172 1173 1174 | (rmt:get-run-name-from-id curr-run-id) "None")) (prev-runname (if prev-run-id (rmt:get-run-name-from-id prev-run-id) "None")) ) | < < < < | | | | 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 | (rmt:get-run-name-from-id curr-run-id) "None")) (prev-runname (if prev-run-id (rmt:get-run-name-from-id prev-run-id) "None")) ) (case current-mode ((view-one-run) (iup:attribute-set! xor-src-runid-label "TITLE" "") (iup:attribute-set! xor-dest-runid-label "TITLE" "")) ((xor-two-runs) (iup:attribute-set! xor-src-runid-label "TITLE" (conc " SRC: "prev-runname" ")) (iup:attribute-set! xor-dest-runid-label "TITLE" (conc "DEST: "curr-runname" "))) (else (print "BB> should never arrive here")) ))) (define (dboard:runs-tree-browser commondat tabdat) (let* ((tb (iup:treebox #:value 0 #:name "Runs" #:expand "YES" |
︙ | ︙ | |||
1210 1211 1212 1213 1214 1215 1216 | (dboard:tabdat-prev-run-id-set! tabdat (dboard:tabdat-curr-run-id tabdat)) (dboard:tabdat-curr-run-id-set! tabdat run-id) (dboard:tabdat-run-name-set! tabdat curr-runname) | < < | 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 | (dboard:tabdat-prev-run-id-set! tabdat (dboard:tabdat-curr-run-id tabdat)) (dboard:tabdat-curr-run-id-set! tabdat run-id) (dboard:tabdat-run-name-set! tabdat curr-runname) (dboard:xor-ui-update tabdat) (dboard:tabdat-view-changed-set! tabdat #t)) (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id)))) "treebox")) ;; (print "path: " (tree:node->path obj id) " run-id: " run-id) ))) (dboard:tabdat-runs-tree-set! tabdat tb) tb)) |
︙ | ︙ | |||
1686 1687 1688 1689 1690 1691 1692 | (mode-flag 'xor-two-runs) (iup:attribute-set! obj "BGCOLOR" sel-color) (iup:attribute-set! view-one-run-button "BGCOLOR" nonsel-color) (dboard:xor-ui-update tabdat)) "temp-button-2")) ))) (set! xor-two-runs-button temp-button) | | < | | < < < < < | 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 | (mode-flag 'xor-two-runs) (iup:attribute-set! obj "BGCOLOR" sel-color) (iup:attribute-set! view-one-run-button "BGCOLOR" nonsel-color) (dboard:xor-ui-update tabdat)) "temp-button-2")) ))) (set! xor-two-runs-button temp-button) temp-button) (let ((temp-label (iup:label "" #:size "125x15" #:fontsize "10" ))) (dboard:tabdat-xor-src-runid-label-set! tabdat temp-label) temp-label ) (let ((temp-label (iup:label "" #:size "125x15" #:fontsize "10"))) (dboard:tabdat-xor-dest-runid-label-set! tabdat temp-label) temp-label))) (run-matrix (iup:matrix #:expand "YES" #:click-cb (lambda (obj lin col status) (let* ((toolpath (car (argv))) (key (conc lin ":" col)) (test-id (hash-table-ref/default cell-lookup key -1)) |
︙ | ︙ | |||
1729 1730 1731 1732 1733 1734 1735 | (dboard:commondat-add-updater commondat one-run-updater tab-num: tab-num) ;; register updater (dboard:tabdat-runs-tree-set! tabdat tb) (iup:vbox (iup:split #:value 150 | < | | 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 | (dboard:commondat-add-updater commondat one-run-updater tab-num: tab-num) ;; register updater (dboard:tabdat-runs-tree-set! tabdat tb) (iup:vbox (iup:split #:value 150 tb run-matrix) mode-selector) )) ;; (iup:vbox ;; (let* ((cnv-obj (iup:canvas |
︙ | ︙ |
Modified gutils.scm from [8c2f334f02] to [753b73f869].
︙ | ︙ | |||
32 33 34 35 36 37 38 | ((SKIP) (list "230 230 0" status)) (else (list "253 33 49" status)))) ((ARCHIVED) (case (string->symbol status) ((PASS) (list "70 170 73" status)) ((WARN WAIVED) (list "200 130 13" status)) ((SKIP) (list "180 180 0" status)) | | | | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | ((SKIP) (list "230 230 0" status)) (else (list "253 33 49" status)))) ((ARCHIVED) (case (string->symbol status) ((PASS) (list "70 170 73" status)) ((WARN WAIVED) (list "200 130 13" status)) ((SKIP) (list "180 180 0" status)) (else (list "253 33 49" state)))) ;; (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 ((CLEAN) (list "60 235 63" status)) ((DIRTY-BETTER) (list "160 255 153" status)) ((DIRTY-WORSE) (list "165 42 42" status)) ((BOTH-BAD) (list "180 33 49" status)) ((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)) |
︙ | ︙ |