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
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))
  (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))