Overview
| Comment: | Patched in remaining changes from new-view branch but it still doesn't work |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.6569-new-view |
| Files: | files | file ages | folders |
| SHA1: |
fd85f0d7b7657b71078c51c29a39a323 |
| User & Date: | mrwellan on 2021-03-02 07:59:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-03-02
| ||
| 07:59 | Patched in remaining changes from new-view branch but it still doesn't work Closed-Leaf check-in: fd85f0d7b7 user: mrwellan tags: v1.6569-new-view | |
|
2021-03-01
| ||
| 19:26 | wip check-in: b3df55613b user: mrwellan tags: v1.6569-new-view | |
Changes
Modified dashboard-new-runs-view.scm from [75c9fe805c] to [98e44d893e].
| ︙ | ︙ | |||
36 37 38 39 40 41 42 | (runname-sql-filt (dboard:rdat-runname-sql-filt rdat)) (state-sql-filt (dboard:rdat-run-state-sql-filt rdat)) (status-sql-filt (dboard:rdat-run-status-sql-filt rdat)) (offset (dboard:rdat-runs-offset rdat)) (count (dboard:rdat-runs-count rdat)) ;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo)) | | > | | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
(runname-sql-filt (dboard:rdat-runname-sql-filt rdat))
(state-sql-filt (dboard:rdat-run-state-sql-filt rdat))
(status-sql-filt (dboard:rdat-run-status-sql-filt rdat))
(offset (dboard:rdat-runs-offset rdat))
(count (dboard:rdat-runs-count rdat))
;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
(data #;(rmt:simple-get-runs runname-sql-filt count offset targ-sql-filt #f)
(rmt:simple-get-runs runname-sql-filt #f #f targ-sql-filt #f))
(numruns (length data)))
(print "Scan runs, offset: "offset" numruns: "numruns" count: "count)
#;(if (< numruns count) ;; i.e. there are no more runs to get
(begin
(dboard:rdat-runs-offset-set! rdat 0)) ;; start over
(dboard:rdat-runs-offset-set! rdat
(+ (dboard:rdat-runs-offset rdat) numruns)))
;; store in the runsbynum vector
(dboard:rdat-runsbynum-set! rdat (list->vector data))
;; update runs id => runrec
|
| ︙ | ︙ |
Modified dashboard.scm from [0d082931fc] to [54d0d0890b].
| ︙ | ︙ | |||
597 598 599 600 601 602 603 604 605 606 607 608 609 610 |
(define-inline (dboard:uidat-get-header vec)(vector-ref vec 2))
(define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
(if (get-environment-variable "MT_RUN_AREA_HOME")(change-directory (get-environment-variable "MT_RUN_AREA_HOME")))
(define (message-window msg)
(iup:show
(iup:dialog
(iup:vbox
(iup:label msg #:margin "40x40")))))
(define (iuplistbox-fill-list lb items #!key (selected-item #f))
(let ((i 1))
(for-each (lambda (item)
| > | 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 |
(define-inline (dboard:uidat-get-header vec)(vector-ref vec 2))
(define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
(if (get-environment-variable "MT_RUN_AREA_HOME")(change-directory (get-environment-variable "MT_RUN_AREA_HOME")))
(define (message-window msg)
(iup:show
#:shrink "YES"
(iup:dialog
(iup:vbox
(iup:label msg #:margin "40x40")))))
(define (iuplistbox-fill-list lb items #!key (selected-item #f))
(let ((i 1))
(for-each (lambda (item)
|
| ︙ | ︙ | |||
2941 2942 2943 2944 2945 2946 2947 | (apply iup:hbox (reverse hdrlst)) (apply iup:hbox (reverse bdylst)) (dashboard:runs-horizontal-slider runs-dat)))) controls )) (views-cfgdat (common:load-views-config)) (additional-tabnames '()) | | | 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 | (apply iup:hbox (reverse hdrlst)) (apply iup:hbox (reverse bdylst)) (dashboard:runs-horizontal-slider runs-dat)))) controls )) (views-cfgdat (common:load-views-config)) (additional-tabnames '()) (tab-start-num 6) ;; DON'T FORGET TO UPDATE THIS WHEN CHANGING THE STANDARD TABS BELOW ;; (data (dboard:tabdat-init (make-d:data))) (additional-views ;; process views-dat (let ((tab-num tab-start-num) (result '())) (for-each (lambda (view-name) (debug:print 0 *default-log-port* "Adding view " view-name) |
| ︙ | ︙ |