Overview
Comment: | Fixed spelling and added comment |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | db-new |
Files: | files | file ages | folders |
SHA1: |
3438d7c75ecbbb529920fb68d55d2975 |
User & Date: | mrwellan on 2016-11-14 10:36:40 |
Other Links: | branch diff | manifest | tags |
Context
2016-11-14
| ||
13:55 | Show button functionality check-in: 948b48ab12 user: ritikaag tags: db-new | |
10:36 | Fixed spelling and added comment check-in: 3438d7c75e user: mrwellan tags: db-new | |
2016-10-27
| ||
15:13 | Merged with latest and run tab fix check-in: 28bf2c1d25 user: ritikaag tags: db-new | |
Changes
Modified dashboard.scm from [5cca40df4a] to [a99bae7ca8].
︙ | |||
2764 2765 2766 2767 2768 2769 2770 | 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 | - + | (filtrstr (conc targpatt "/" runpatt "/" testpatt))) ;; (print "targpatt: " targpatt " runpatt: " runpatt " testpatt: " testpatt) (print "RA => dboard:tabdat-last-filter-str " dboard:tabdat-last-filter-str "filtrstr" filtrstr "dboard:tabdat-view-changed" (dboard:tabdat-view-changed tabdat)) (if (or (not (equal? (dboard:tabdat-last-filter-str tabdat) filtrstr)) (dboard:tabdat-view-changed tabdat)) (let ((dwg (dboard:tabdat-drawing tabdat))) |
︙ | |||
2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 | 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 | + + | ;; (let ((val (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) key #f))) ;; (if val (set! res (cons (list key val) res)))))) ;; (dboard:tabdat-dbkeys tabdat)) ;; res) ))))) ;; run times canvas updater ;; NOTE: this is for redrawing the canvas but does NOT change the underlying data that constitues ;; our charts/graphs being drawn. ;; (define (dashboard:run-times-tab-canvas-updater commondat tabdat tab-num) (let ((cnv (dboard:tabdat-cnv tabdat)) (dwg (dboard:tabdat-drawing tabdat)) (mtx (dboard:tabdat-runs-mutex tabdat)) (vch (dboard:tabdat-view-changed tabdat))) (if (and cnv dwg vch) |
︙ |