Overview
Comment: | Removed some noisy messages |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.61 |
Files: | files | file ages | folders |
SHA1: |
c496cd4006d134a339e28df6e0f41d8c |
User & Date: | mrwellan on 2016-08-18 11:53:12 |
Other Links: | branch diff | manifest | tags |
Context
2016-08-20
| ||
21:35 | Improved documentation and fixed one setting control check-in: a8b377fd7a user: matt tags: v1.61 | |
2016-08-18
| ||
11:53 | Removed some noisy messages check-in: c496cd4006 user: mrwellan tags: v1.61 | |
10:47 | clean runs in popup menu check-in: 135245419c user: ritikaag tags: v1.61 | |
Changes
Modified dashboard.scm from [36b00f6ade] to [9982f6373f].
︙ | |||
1396 1397 1398 1399 1400 1401 1402 | 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 | - + | (key (conc num ":0"))) (if (not (equal? (iup:attribute run-matrix key) name)) (begin (set! changed #t) (iup:attribute-set! run-matrix key name))))) row-indices) |
︙ | |||
1440 1441 1442 1443 1444 1445 1446 | 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 | - + | (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num)))))) col-indices) (if (and (eq? pass-num 0) changed) (loop 1 #t)) ;; force second pass due to column labels changing ;; (debug:print 0 *default-debug-port* "one-run-updater, changed: " changed " pass-num: " pass-num) |
︙ | |||
1508 1509 1510 1511 1512 1513 1514 | 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 | - + + | (run-id (tree-path->run-id tabdat (cdr run-path)))) (if (number? run-id) (begin (dboard:tabdat-curr-run-id-set! tabdat run-id) (dboard:tabdat-layout-update-ok-set! tabdat #f) ;; (dashboard:update-run-summary-tab) ) |
︙ | |||
2467 2468 2469 2470 2471 2472 2473 | 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 | - | (res-ht (make-hash-table))) (if db (begin (for-each (lambda (fieldname) ;; fields (let ((all-dat-qrystr (conc "SELECT " timef "," varfn "," valfn " FROM " tablen " WHERE " varfn "='" fieldname "' AND " timef " >= " tstart " AND " timef " <= " tend " ORDER BY " timef " ASC")) (zeroth-point (conc "SELECT " timef "," varfn "," valfn " FROM " tablen " WHERE " varfn "='" fieldname "' AND " timef " < " tstart " LIMIT 1"))) |
︙ | |||
2669 2670 2671 2672 2673 2674 2675 | 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 | - + | (num-tests (length hierdat)) (tot-tests (length testsdat)) (width (* timescale run-duration)) (graph-lly (calc-y (/ -50 row-height))) (graph-uly (- (calc-y 0) canvas-margin)) (sec-per-50pt (/ 50 timescale)) ) |
︙ |