Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -87,11 +87,24 @@
   (set! *test-info*          (make-hash-table))
   (set! *run-info-cache*     (make-hash-table))
   (set! *env-vars-by-run-id* (make-hash-table))
   (set! *test-id-cache*      (make-hash-table)))
 
-;; Debugging stuff
+;;======================================================================
+;; S T A T E S   A N D   S T A T U S E S
+;;======================================================================
+
+(define *common:std-states*   
+  (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "LAUNCHED" "KILLED" "KILLREQ" "STUCK"))
+
+(define *common:std-statuses*
+  (list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD"))
+
+;;======================================================================
+;; D E B U G G I N G   S T U F F 
+;;======================================================================
+
 (define *verbosity*         1)
 (define *logging*           #f)
 
 (define (get-with-default val default)
   (let ((val (args:get-arg val)))

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -221,11 +221,11 @@
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (open-run-close db:test-set-state-status-by-id db test-id state #f #f)
 								    (db:test-set-state! testdat state)))))
 				    btn))
-				(list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ"))))
+				*common:std-states*))) ;; (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "LAUNCHED" "KILLED" "KILLREQ"))))
 	       (vector-set! *state-status* 0
 			    (lambda (state color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))
@@ -241,11 +241,11 @@
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (open-run-close db:test-set-state-status-by-id db test-id #f status #f)
 								    (db:test-set-status! testdat status)))))
 				    btn))
-				(list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED" "SKIP"))))
+				*common:std-statuses*))) ;; (list  "PASS" "WARN" "FAIL" "CHECK" "n/a" "WAIVED" "SKIP"))))
 	       (vector-set! *state-status* 1
 			    (lambda (status color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -158,10 +158,13 @@
 (define (get-curr-sort)
   (vector-ref *tests-sort-options* *tests-sort-reverse*))
 
 (define *tests-sort-reverse* 3)
 (define *hide-empty-runs* #f)
+(define *hide-not-hide* #t) ;; toggle for hide/not hide
+(define *hide-not-hide-button* #f)
+(define *hide-not-hide-tabs* #f)
 
 (define *current-tab-number* 0)
 (define *updaters* (make-hash-table))
 
 (debug:setup)
@@ -219,11 +222,14 @@
     ;; 
     ;; trim runs to only those that are changing often here
     ;; 
     (for-each (lambda (run)
 		(let* ((run-id      (db:get-value-by-header run header "id"))
-		       (tests    (mt:get-tests-for-run run-id testnamepatt states statuses sort-by: sort-by sort-order: sort-order))
+		       (tests    (mt:get-tests-for-run run-id testnamepatt states statuses
+						       not-in: *hide-not-hide*
+						       sort-by: sort-by
+						       sort-order: sort-order))
 		       ;; NOTE: bubble-up also sets the global *all-item-test-names*
 		       ;; (tests       (bubble-up tmptests priority: bubble-type))
 		       (key-vals    (cdb:remote-run db:get-key-vals #f run-id)))
 		  ;; Not sure this is needed?
 		  (set! referenced-run-ids (cons run-id referenced-run-ids))
@@ -476,14 +482,28 @@
 	 (set! coln (+ coln 1))))
      runs)))
 
 (define (mkstr . x)
   (string-intersperse (map conc x) ","))
+
+(define (set-bg-on-filter)
+  (let ((search-changed (not (null? (filter (lambda (key)
+					      (not (equal? (hash-table-ref *searchpatts* key) "%")))
+					    (hash-table-keys *searchpatts*)))))
+	(state-changed  (not (null? (hash-table-keys *state-ignore-hash*))))
+	(status-changed (not (null? (hash-table-keys *status-ignore-hash*)))))
+    (iup:attribute-set! *hide-not-hide-tabs* "BGCOLOR"
+			(if (or search-changed
+				state-changed
+				status-changed)
+			    "190 180 190"
+			    "190 190 190"
+			    ))))
 
 (define (update-search x val)
-  ;; (print "Setting search for " x " to " val)
-  (hash-table-set! *searchpatts* x val))
+  (hash-table-set! *searchpatts* x val)
+  (set-bg-on-filter))
 
 (define (mark-for-update)
   (set! *last-db-update-time* 0)
   (set! *delayed-update* 1))
 
@@ -847,19 +867,19 @@
 	   ;; Text box for STATES
 	   (iup:frame
 	    #:title "States"
 	    (dashboard:text-list-toggle-box 
 	     ;; Move these definitions to common and find the other useages and replace!
-	     '("COMPLETED" "RUNNING" "STUCK" "INCOMPLETE" "LAUNCHED" "REMOTEHOSTSTART" "KILLED")
+	     *common:std-states* ;; '("COMPLETED" "RUNNING" "STUCK" "INCOMPLETE" "LAUNCHED" "REMOTEHOSTSTART" "KILLED")
 	     (lambda (all)
 	       (dboard:data-set-states! *data* all)
 	       (dashboard:update-run-command))))
 	   ;; Text box for STATES
 	   (iup:frame
 	    #:title "Statuses"
 	    (dashboard:text-list-toggle-box 
-	     '("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
+	     *common:std-statuses* ;; '("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
 	     (lambda (all)
 	       (dboard:data-set-statuses! *data* all)
 	       (dashboard:update-run-command))))))))
       
        (iup:frame
@@ -1022,11 +1042,15 @@
 		      #:expand "YES"))
 	 (updater  (lambda ()
 		     (let* ((runs-dat     (mt:get-runs-by-patt *keys* "%" #f))
 			    (runs-header  (vector-ref runs-dat 0)) ;; 0 is header, 1 is list of records
 			    (run-id       (dboard:data-get-curr-run-id *data*))
-			    (tests-dat    (let ((tdat (mt:get-tests-for-run run-id "%" '() '()
+			    (tests-dat    (let ((tdat (mt:get-tests-for-run run-id 
+									    (hash-table-ref/default *searchpatts* "test-name" "%/%")
+									    (hash-table-keys *state-ignore-hash*) ;; '()
+									    (hash-table-keys *status-ignore-hash*) ;; '()
+									    not-in: *hide-not-hide*
 									    qryvals: "id,testname,item_path,state,status"))) ;; get 'em all
 					    (sort tdat (lambda (a b)
 							 (let* ((aval (vector-ref a 2))
 								(bval (vector-ref b 2))
 								(anum (string->number aval))
@@ -1176,12 +1200,18 @@
 						 (next-sort-option)
 						 (iup:attribute-set! obj "TITLE" (vector-ref (vector-ref *tests-sort-options* *tests-sort-reverse*) 0))
 						 (mark-for-update)))
 	      (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"))
-						 (mark-for-update))))
+						 (iup:attribute-set! obj "TITLE" (if *hide-empty-runs* "+HideE" "-HideE"))
+						 (mark-for-update)))
+	      (let ((hideit (iup:button "HideTests" #:action (lambda (obj)
+							       (set! *hide-not-hide* (not *hide-not-hide*))
+							       (iup:attribute-set! obj "TITLE" (if *hide-not-hide* "HideTests" "NotHide"))
+							       (mark-for-update)))))
+		(set! *hide-not-hide-button* hideit)
+		hideit))
 	     (iup:hbox
 	      (iup:button "Quit"      #:action (lambda (obj)(if *db* (sqlite3:finalize! *db*))(exit)))
 	      (iup:button "Refresh"   #:action (lambda (obj)
 						 (mark-for-update)))
 	      (iup:button "Collapse"  #:action (lambda (obj)
@@ -1197,30 +1227,32 @@
 								     (hash-table-delete! *collapsed* tname))
 								   (hash-table-keys *collapsed*))
 							 (iup:attribute-set! obj "TITLE" "Collapse"))))
 						 (mark-for-update))))))
 	   (iup:frame 
-	    #:title "hide"
+	    #:title "state/status filter"
 	    (iup:vbox
 	     (apply 
 	      iup:hbox
 	      (map (lambda (status)
 		     (iup:toggle status  #:action   (lambda (obj val)
 						      (mark-for-update)
 						      (if (eq? val 1)
 							  (hash-table-set! *status-ignore-hash* status #t)
-							  (hash-table-delete! *status-ignore-hash* status)))))
-		   '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD" "n/a" "SKIP")))
+							  (hash-table-delete! *status-ignore-hash* status))
+						      (set-bg-on-filter))))
+		   *common:std-statuses*)) ;; '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD" "n/a" "SKIP")))
 	     (apply 
 	      iup:hbox
 	      (map (lambda (state)
 		     (iup:toggle state   #:action   (lambda (obj val)
 						      (mark-for-update)
 						      (if (eq? val 1)
 							  (hash-table-set! *state-ignore-hash* state #t)
-							  (hash-table-delete! *state-ignore-hash* state)))))
-		   '("RUNNING" "COMPLETED" "INCOMPLETE" "LAUNCHED" "NOT_STARTED" "KILLED" "DELETED")))
+							  (hash-table-delete! *state-ignore-hash* state))
+						      (set-bg-on-filter))))
+		   *common:std-states*)) ;; '("RUNNING" "COMPLETED" "INCOMPLETE" "LAUNCHED" "NOT_STARTED" "KILLED" "DELETED")))
 	     (iup:valuator #:valuechanged_cb (lambda (obj)
 					       (let ((val (inexact->exact (round (/ (string->number (iup:attribute obj "VALUE")) 10))))
 						     (oldmax   (string->number (iup:attribute obj "MAX")))
 						     (maxruns  *tot-run-count*))
 						 (set! *start-run-offset* val)
@@ -1353,10 +1385,12 @@
 	;; (set! (iup:callback tabs tabchange-cb:) (lambda (a b c)(print "SWITCHED TO TAB: " a " " b " " c)))
 	(iup:attribute-set! tabs "TABTITLE0" "Summary")
 	(iup:attribute-set! tabs "TABTITLE1" "Runs")
 	(iup:attribute-set! tabs "TABTITLE2" "Run Summary")
 	(iup:attribute-set! tabs "TABTITLE3" "Run Control")
+	(iup:attribute-set! tabs "BGCOLOR" "190 190 190")
+	(set! *hide-not-hide-tabs* tabs)
 	tabs)))
     (vector keycol lftcol header runsvec)))
 
 (if (or (args:get-arg "-rows")
 	(get-environment-variable "DASHBOARDROWS" ))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -818,12 +818,12 @@
 
 ;; does not (obviously!) removed dependent data. But why not!!?
 (define (db:delete-run db run-id)
   (common:clear-caches) ;; don't trust caches after doing any deletion
   ;; First set any related tests to DELETED
-  (let ((stmt1 (sqlite3:prepare db "UPDATE tests SET state='DELETED' WHERE run_id=?;"))
-	(stmt2 (sqlite3:prepare db "UPDATE runs SET state='deleted' WHERE id=?;")))
+  (let ((stmt1 (sqlite3:prepare db "UPDATE tests SET state='DELETED',comment='' WHERE run_id=?;"))
+	(stmt2 (sqlite3:prepare db "UPDATE runs SET state='deleted',comment='' WHERE id=?;")))
     (sqlite3:with-transaction
      db (lambda ()
 	  (sqlite3:execute stmt1 run-id)
 	  (sqlite3:execute stmt2 run-id)))
     (sqlite3:finalize! stmt1)
@@ -1047,11 +1047,11 @@
       (begin
 	(sqlite3:execute db "DELETE FROM test_steps WHERE test_id=?;" test-id)
 	(sqlite3:execute db "DELETE FROM test_data  WHERE test_id=?;" test-id)
 	(if force
 	    (sqlite3:execute db "DELETE FROM tests WHERE id=?;" test-id)
-	    (sqlite3:execute db "UPDATE tests SET state='DELETED',status='n/a' WHERE id=?;" test-id)))))
+	    (sqlite3:execute db "UPDATE tests SET state='DELETED',status='n/a',comment='' WHERE id=?;" test-id)))))
 
 (define (db:delete-tests-for-run db run-id)
   (common:clear-caches)
   (sqlite3:execute db "DELETE FROM tests WHERE run_id=?;" run-id))