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 |
(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)))
| | | 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)))
(print "resetting drawing")
(dboard:tabdat-layout-update-ok-set! tabdat #f)
(vg:drawing-libs-set! dwg (make-hash-table))
(vg:drawing-insts-set! dwg (make-hash-table))
(vg:drawing-cache-set! dwg '())
(dboard:tabdat-allruns-by-id-set! tabdat (make-hash-table))
;; (dboard:tabdat-allruns-set! tabdat '())
(dboard:tabdat-max-row-set! tabdat 0)
|
| ︙ | ︙ | |||
2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 |
;; (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
;;
(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)
| > > | 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)
|
| ︙ | ︙ |