Overview
| Comment: | Added popup-menu based on Thomas Chust's feedback |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | mtdboard_defunct |
| Files: | files | file ages | folders |
| SHA1: |
a43a49988ba824bc415e36ea25f59b44 |
| User & Date: | mrwellan on 2016-04-21 09:59:37 |
| 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 | |
|
2016-03-22
| ||
| 14:52 | Multi-dashboard changes check-in: 1f80fdebfa user: ritikaag tags: mtdboard_defunct | |
Changes
Modified multi-dboard.scm from [e86b128f19] to [c50a2e3f73].
| ︙ | ︙ | |||
417 418 419 420 421 422 423 424 425 426 427 428 429 430 |
#:resizematrix "YES"
#:scrollbar "YES"
#:numcol 100
#:numlin 100
#:numcol-visible 3
#:numlin-visible 20
#:click-cb (lambda (obj lin col status)
(print "obj: " obj " lin: " lin " col: " col " status: " status " value: " (iup:attribute obj "VALUE"))))))
;; (iup:attribute-set! view-matrix "RESIZEMATRIX" "YES")
(iup:attribute-set! view-matrix "WIDTH0" "100")
;; (dboard:data-set-runs-matrix! *data* runs-matrix)
;; (iup:hbox
;; (iup:frame
| > > > > > > > > > | 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 |
#: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
(iup:menu-item "Remove test"
#:action (lambda (obj)(print "Removing test"))))))
(iup:show popup-menu
#:x 'mouse
#:y 'mouse
#:modal? "NO")
(print "got here"))
(print "obj: " obj " lin: " lin " col: " col " status: " status " value: " (iup:attribute obj "VALUE"))))))
;; (iup:attribute-set! view-matrix "RESIZEMATRIX" "YES")
(iup:attribute-set! view-matrix "WIDTH0" "100")
;; (dboard:data-set-runs-matrix! *data* runs-matrix)
;; (iup:hbox
;; (iup:frame
|
| ︙ | ︙ | |||
786 787 788 789 790 791 792 |
;; )
(define (dboard:read-mtconf apath)
(let* ((mtconffile (conc apath "/megatest.config")))
(call-with-environment-variables
(list (cons "MT_RUN_AREA_HOME" apath))
(lambda ()
| | > > > > | | | 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 |
;; )
(define (dboard:read-mtconf apath)
(let* ((mtconffile (conc apath "/megatest.config")))
(call-with-environment-variables
(list (cons "MT_RUN_AREA_HOME" apath))
(lambda ()
(let ((res (read-config mtconffile (make-hash-table) #f))) ;; megatest.config
(if (hash-table? res)
res
(begin
(debug:print 0 "WARNING: failed to read " mtconffile)
(make-hash-table))))))))
;;======================================================================
;; G U I S T U F F
;;======================================================================
;;; main. Theoretically could have multiple windows (each with a group of tags, thus window-id
;;;
|
| ︙ | ︙ |
Modified tests/fullrun/multi-dboard.sh from [b641343611] to [5229cb1882].
| ︙ | ︙ | |||
23 24 25 26 27 28 29 | # order 2 # [local_fullrun] # path /home/matt/data/megatest/tests/fullrun # order 3 EOF fi | | | 23 24 25 26 27 28 29 30 | # order 2 # [local_fullrun] # path /home/matt/data/megatest/tests/fullrun # order 3 EOF fi /nfs/pdx/disks/icf_external/pkgs/chicken/4.10.0/bin/csi -I ../.. multi-dboard-load-all.scm |