Megatest

Check-in [b13e42d1a5]
Login
Overview
Comment:Re-added the delayed update, issue with dashboard displaying was window manager
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | reorg-runs-code
Files: files | file ages | folders
SHA1: b13e42d1a5881d9ef82957a8a51fa4a14a8a2918
User & Date: matt on 2011-11-16 21:30:38
Other Links: branch diff | manifest | tags
Context
2011-11-17
07:11
mid-hacking check-in: 0894da02e1 user: matt tags: reorg-runs-code
2011-11-16
21:31
Reorg'd code worked fine. Pulling the basic reorg back to trunk. Next batch of changes won't be so kind :) check-in: 47e2caaf9c user: matt tags: trunk
21:30
Re-added the delayed update, issue with dashboard displaying was window manager check-in: b13e42d1a5 user: matt tags: reorg-runs-code
20:51
Reorg runs code start check-in: aaf143afd7 user: matt tags: reorg-runs-code
Changes

Modified dashboard.scm from [55452f0f20] to [16c17747cc].

451
452
453
454
455
456
457
458

459
460
461
462
463
464
465

(define (update-search x val)
  ;; (print "Setting search for " x " to " val)
  (hash-table-set! *searchpatts* x val))

(define (mark-for-update)
  (set! *last-db-update-time* 0)
  (set! *delayed-update* 1))


(define (make-dashboard-buttons nruns ntests keynames)
  (let* ((nkeys   (length keynames))
	 (runsvec (make-vector nruns))
	 (header  (make-vector nruns))
	 (lftcol  (make-vector ntests))
	 (keycol  (make-vector ntests))







|
>







451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466

(define (update-search x val)
  ;; (print "Setting search for " x " to " val)
  (hash-table-set! *searchpatts* x val))

(define (mark-for-update)
  (set! *last-db-update-time* 0)
  (set! *delayed-update* 1)
  )

(define (make-dashboard-buttons nruns ntests keynames)
  (let* ((nkeys   (length keynames))
	 (runsvec (make-vector nruns))
	 (header  (make-vector nruns))
	 (lftcol  (make-vector ntests))
	 (keycol  (make-vector ntests))