Index: multi-dboard.scm ================================================================== --- multi-dboard.scm +++ multi-dboard.scm @@ -419,10 +419,19 @@ #: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) @@ -788,13 +797,17 @@ (define (dboard:read-mtconf apath) (let* ((mtconffile (conc apath "/megatest.config"))) (call-with-environment-variables (list (cons "MT_RUN_AREA_HOME" apath)) (lambda () - (read-config mtconffile (make-hash-table) #f)) ;; megatest.config - ))) - + (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 ;;====================================================================== Index: tests/fullrun/multi-dboard.sh ================================================================== --- tests/fullrun/multi-dboard.sh +++ tests/fullrun/multi-dboard.sh @@ -25,6 +25,6 @@ # path /home/matt/data/megatest/tests/fullrun # order 3 EOF fi -csi -I ../.. multi-dboard-load-all.scm +/nfs/pdx/disks/icf_external/pkgs/chicken/4.10.0/bin/csi -I ../.. multi-dboard-load-all.scm