Overview
| Comment: | time view - roller works for zoom in x |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
eab45c2ec20db9caa5f838b758914fb9 |
| User & Date: | matt on 2016-07-16 22:47:04 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-07-17
| ||
| 15:21 | Added labels to the runs in run-times check-in: 497e6b28c3 user: matt tags: v1.61 | |
|
2016-07-16
| ||
| 22:47 | time view - roller works for zoom in x check-in: eab45c2ec2 user: matt tags: v1.61 | |
| 22:23 | Now have semi-decent temporal view of tests check-in: 6cffe7588b user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [fe80c7ccab] to [8136c9ce95].
| ︙ | ︙ | |||
1018 1019 1020 1021 1022 1023 1024 |
(let ((drawing (vg:drawing-new))
(run-times-tab-updater (lambda ()
(dashboard:run-times-tab-updater commondat tab-num))))
(dboard:tabdat-drawing-set! tabdat drawing)
(dboard:commondat-add-updater commondat run-times-tab-updater tab-num: tab-num)
(iup:vbox
(let* ((cnv-obj (iup:canvas
| | | > > > > > > > > > | 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 |
(let ((drawing (vg:drawing-new))
(run-times-tab-updater (lambda ()
(dashboard:run-times-tab-updater commondat tab-num))))
(dboard:tabdat-drawing-set! tabdat drawing)
(dboard:commondat-add-updater commondat run-times-tab-updater tab-num: tab-num)
(iup:vbox
(let* ((cnv-obj (iup:canvas
;; #:size "500x400"
#:expand "YES"
#:scrollbar "YES"
#:posx "0.5"
#:posy "0.5"
#:action (make-canvas-action
(lambda (c xadj yadj)
(if (not (dboard:tabdat-cnv tabdat))
(dboard:tabdat-cnv-set! tabdat c))))
#:wheel-cb (lambda (obj step x y dir) ;; dir is 4 for up and 5 for down. I think.
(let* ((drawing (dboard:tabdat-drawing tabdat))
(scalex (vg:drawing-scalex drawing)))
(vg:drawing-scalex-set! drawing
(+ scalex
(if (> step 0)
(* scalex 0.01)
(* scalex -0.01))))))
)))
cnv-obj))))
;;======================================================================
;; S U M M A R Y
;;======================================================================
;;
;; General info about the run(s) and megatest area
|
| ︙ | ︙ | |||
1636 1637 1638 1639 1640 1641 1642 | (iup:label) ;; (iup:valuator) (apply iup:vbox (map (lambda (x) (let ((res (iup:hbox #:expand "HORIZONTAL" (iup:label x #:size "x15" #:fontsize "10" #:expand "HORIZONTAL") (iup:textbox #:size "x15" #:fontsize "10" #:value "%" #:expand "HORIZONTAL" #:action (lambda (obj unk val) | | | | 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 |
(iup:label) ;; (iup:valuator)
(apply iup:vbox
(map (lambda (x)
(let ((res (iup:hbox #:expand "HORIZONTAL"
(iup:label x #:size "x15" #:fontsize "10" #:expand "HORIZONTAL")
(iup:textbox #:size "x15" #:fontsize "10" #:value "%" #:expand "HORIZONTAL"
#:action (lambda (obj unk val)
(mark-for-update runs-dat)
(update-search commondat runs-dat x val))))))
(set! i (+ i 1))
res))
keynames)))))
(let loop ((testnum 0)
(res '()))
(cond
((>= testnum ntests)
|
| ︙ | ︙ | |||
1894 1895 1896 1897 1898 1899 1900 | (hash-table-ref/default rowhash rownum '())))) (define (dashboard:run-times-tab-updater commondat tab-num) ;; each test is an object in the run component ;; each run is a component ;; all runs stored in runslib library (let ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num)) | | | 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 |
(hash-table-ref/default rowhash rownum '()))))
(define (dashboard:run-times-tab-updater commondat tab-num)
;; each test is an object in the run component
;; each run is a component
;; all runs stored in runslib library
(let ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num))
(canvas-margin 10)
(start-row 0)) ;; each run starts in this row
(if tabdat
(let* ((row-height 20)
(drawing (dboard:tabdat-drawing tabdat))
(runslib (vg:get/create-lib drawing "runslib"))) ;; creates and adds lib
(update-rundat tabdat
"%" ;; (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%")
|
| ︙ | ︙ |