Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -102,10 +102,11 @@
 (define *last-db-update-time* 0)
 (define *please-update-buttons* #t)
 (define *db-file-path* (conc *toppath* "/megatest.db"))
 
 (define *tests-sort-reverse* #f)
+(define *hide-empty-runs* #f)
 
 (define *verbosity* (cond
 		     ((args:get-arg "-debug")(string->number (args:get-arg "-debug")))
 		     ((args:get-arg "-v")    2)
 		     ((args:get-arg "-q")    0)
@@ -220,12 +221,13 @@
 			       (tests    (let ((tsts (db-get-tests-for-run *db* run-id testnamepatt itemnamepatt states statuses)))
 					   (if *tests-sort-reverse* (reverse tsts) tsts)))
 			       (key-vals (get-key-vals *db* run-id)))
 			  (if (> (length tests) maxtests)
 			      (set! maxtests (length tests)))
-			  ;(if (not (null? tests))
-			      (set! result (cons (vector run tests key-vals) result)))); )
+			  (if (or (not *hide-empty-runs*) ;; this reduces the data burden when set
+				  (not (null? tests)))
+			      (set! result (cons (vector run tests key-vals) result)))))
 		      runs)
 	    (set! *header*  header)
 	    (set! *allruns* result)
 	    (debug:print 6 "*allruns* has " (length *allruns*) " runs")
 	    ;; (set! *tot-run-count* (+ 1 (length *allruns*)))
@@ -360,15 +362,17 @@
 	(for-each
 	 (lambda (rundat)
 	   (if (vector? rundat)
 	       (let* ((testdat   (vector-ref rundat 1))
 		      (testnames (map test:test-get-fullname testdat)))
-		 (for-each (lambda (testname)
-			     (if (not (member testname *alltestnamelst*))
-				 (begin
-				   (set! *alltestnamelst* (append *alltestnamelst* (list testname))))))
-			   testnames))))
+		 (if (not (and *hide-empty-runs*
+			       (null? testnames)))
+		     (for-each (lambda (testname)
+				 (if (not (member testname *alltestnamelst*))
+				     (begin
+				       (set! *alltestnamelst* (append *alltestnamelst* (list testname))))))
+			       testnames)))))
 	 runs)
 
 	(set! *alltestnamelst* (collapse-rows *alltestnamelst*)) ;;; argh. please clean up this sillyness
 	(set! *alltestnamelst* (let ((xl (if (> (length *alltestnamelst*) *start-test-offset*)
 					     (drop *alltestnamelst* *start-test-offset*)
@@ -475,11 +479,15 @@
 	    (iup:vbox
 	     (iup:hbox
 	      (iup:button "Sort" #:action (lambda (obj)
 					    (set! *tests-sort-reverse* (not *tests-sort-reverse*))
 					    (iup:attribute-set! obj "TITLE" (if *tests-sort-reverse* "+Sort" "-Sort"))
-					    (set! *last-db-update-time* 0))))
+					    (set! *last-db-update-time* 0)))
+	      (iup:button "HideEmpty" #:action (lambda (obj)
+						 (set! *hide-empty-runs* (not *hide-empty-runs*))
+						 (iup:attribute-set! obj "TITLE" (if *hide-empty-runs* "+Hide" "-Hide"))
+						 (set! *last-db-update-time* 0))))
 	     (iup:hbox
 	      (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
 	      (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &")))))
 	     ))
 	   ;; (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))