Overview
| Comment: | Bit better on the layout, still broken |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
738b9f950cef0b316851126c49ac0763 |
| User & Date: | matt on 2016-07-23 23:29:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-07-23
| ||
| 23:49 | Incremental drawing improvements. check-in: a6901d4365 user: matt tags: v1.61 | |
| 23:29 | Bit better on the layout, still broken check-in: 738b9f950c user: matt tags: v1.61 | |
| 23:26 | Bit better on the layout, still broken check-in: 1fd3017375 user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [7ca6ec0324] to [d3155697de].
| ︙ | ︙ | |||
2531 2532 2533 2534 2535 2536 2537 | (let* ((allruns (dboard:tabdat-allruns tabdat)) (num-runs (length allruns)) (cnv (dboard:tabdat-cnv tabdat))) (print "allruns: " allruns) (let*-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv)) ((originx originy) (canvas-origin cnv)) ((calc-y) (lambda (rownum) | > | | 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 | (let* ((allruns (dboard:tabdat-allruns tabdat)) (num-runs (length allruns)) (cnv (dboard:tabdat-cnv tabdat))) (print "allruns: " allruns) (let*-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv)) ((originx originy) (canvas-origin cnv)) ((calc-y) (lambda (rownum) ;; (- sizey (* rownum row-height)))) ;; (print "allruns: " allruns) (let runloop ((rundat (car allruns)) (runtal (cdr allruns)) (run-num 1) (doneruns '())) (let* ((run (dboard:rundat-run rundat)) (rowhash (make-hash-table)) ;; store me in tabdat |
| ︙ | ︙ |