Overview
| Comment: | Changes to mboard file: pop-up menu |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | mtdboard_defunct |
| Files: | files | file ages | folders |
| SHA1: |
63864cd735fbc18167036db5ad0bd05f |
| User & Date: | ritikaag on 2016-04-22 11:53:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-04-22
| ||
| 11:53 | Changes to mboard file: pop-up menu Closed-Leaf check-in: 63864cd735 user: ritikaag tags: mtdboard_defunct | |
|
2016-04-21
| ||
| 09:59 | Added popup-menu based on Thomas Chust's feedback check-in: a43a49988b user: mrwellan tags: mtdboard_defunct | |
Changes
Modified multi-dboard.scm from [c50a2e3f73] to [aaaadfcd53].
| ︙ | ︙ | |||
411 412 413 414 415 416 417 418 419 420 421 422 423 424 | (define (dashboard:main-matrix data adat window-id) (let* (;; (tab-dat (areadat- (view-matrix (iup:matrix ;; (runs-for-targ (db:get-runs-by-patt *dbstruct-local* *keys* "%" target #f #f #f)) #:expand "YES" ;; #:fittosize "YES" #:resizematrix "YES" #:scrollbar "YES" #:numcol 100 #:numlin 100 #:numcol-visible 3 #:numlin-visible 20 #:click-cb (lambda (obj lin col status) (let ((popup-menu (iup:menu | > | 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 |
(define (dashboard:main-matrix data adat window-id)
(let* (;; (tab-dat (areadat-
(view-matrix (iup:matrix
;; (runs-for-targ (db:get-runs-by-patt *dbstruct-local* *keys* "%" target #f #f #f))
#:expand "YES"
;; #:fittosize "YES"
#:resizematrix "YES"
#:menucontext "YES"
#:scrollbar "YES"
#:numcol 100
#:numlin 100
#:numcol-visible 3
#:numlin-visible 20
#:click-cb (lambda (obj lin col status)
(let ((popup-menu (iup:menu
|
| ︙ | ︙ | |||
825 826 827 828 829 830 831 832 833 834 835 836 837 838 |
0 ;; current tab id
#f ;; redraw needed for current tab id
(make-hash-table) ;; tab-id -> areaname
groupn
)))
(hash-table-set! *windows* window-id data)
(iup:show (dashboard:main-panel data window-id))
(iup:main-loop)))
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
| > | 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 |
0 ;; current tab id
#f ;; redraw needed for current tab id
(make-hash-table) ;; tab-id -> areaname
groupn
)))
(hash-table-set! *windows* window-id data)
(iup:show (dashboard:main-panel data window-id))
;;(iup:show (layout-dialog (dashboard:main-panel data window-id)))
(iup:main-loop)))
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
|
| ︙ | ︙ |
Modified tests/fullrun/multi-dboard.sh from [5229cb1882] to [cf87c45d75].
| ︙ | ︙ | |||
12 13 14 15 16 17 18 | # [local] # localtest /home/matt/data/megatest/tests/fullrun # EOF # fi if [[ ! -e "$HOME/.megatest/default.dat" ]];then cat > "$HOME/.megatest/default.dat" << EOF [fullrun] | | | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | # [local] # localtest /home/matt/data/megatest/tests/fullrun # EOF # fi if [[ ! -e "$HOME/.megatest/default.dat" ]];then cat > "$HOME/.megatest/default.dat" << EOF [fullrun] path /p/fdk/gwa/ritikaag/megatest/tests/fullrun order 1 # [bigrun] # path /mfs/matt/data/megatest/tests/fdktestqa/testqa # order 2 # [local_fullrun] # path /home/matt/data/megatest/tests/fullrun # order 3 |
| ︙ | ︙ |