Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -559,41 +559,48 @@
 			    statuses-str
 			    )))
       (else (set! full-cmd " no valid command ")))
     (iup:attribute-set! cmd-tb "VALUE" full-cmd)))
 
-(define (dashboard:draw-tests cnv xadj yadj test-draw-state sorted-testnames)
+;; Display the tests as rows of boxes on the test/task pane
+;;
+(define (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)
   (canvas-clear! cnv)
-  (canvas-font-set! cnv "Courier New, -10")
+  (canvas-font-set! cnv "Helvetica, -10")
   (let-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv))
 	       ((originx originy)             (canvas-origin cnv)))
-      (if (hash-table-ref/default test-draw-state 'first-time #t)
+      ;; (print "originx: " originx " originy: " originy)
+      ;; (canvas-origin-set! cnv 0 (- (/ sizey 2)))
+      (if (hash-table-ref/default tests-draw-state 'first-time #t)
 	  (begin
-	    (hash-table-set! test-draw-state 'first-time #f)
-	    (hash-table-set! test-draw-state 'scalef 8)
+	    (hash-table-set! tests-draw-state 'first-time #f)
+	    (hash-table-set! tests-draw-state 'scalef 8)
+	    (hash-table-set! tests-draw-state 'tests-info (make-hash-table))
 	    ;; set these 
-	    (hash-table-set! test-draw-state 'test-browse-xoffset 20) ;; (- 0 (* (/ sizex 2) (* 8 xadj))))
-	    (hash-table-set! test-draw-state 'test-browse-yoffset 20))) ;; (- 0 (* (/ sizey 2) (* 8 (- 1 yadj)))))))
-      (let* ((scalef (hash-table-ref/default test-draw-state 'scalef 8))
-	     (test-browse-xoffset (hash-table-ref test-draw-state 'test-browse-xoffset))
-	     (test-browse-yoffset (hash-table-ref test-draw-state 'test-browse-yoffset))
+	    (hash-table-set! tests-draw-state 'test-browse-xoffset 20) ;; (- 0 (* (/ sizex 2) (* 8 xadj))))
+	    (hash-table-set! tests-draw-state 'test-browse-yoffset 20))) ;; (- 0 (* (/ sizey 2) (* 8 (- 1 yadj)))))))
+      (let* ((scalef (hash-table-ref/default tests-draw-state 'scalef 8))
+	     (test-browse-xoffset (hash-table-ref tests-draw-state 'test-browse-xoffset))
+	     (test-browse-yoffset (hash-table-ref tests-draw-state 'test-browse-yoffset))
 	     (xtorig (+ test-browse-xoffset (* (/ sizex 2) scalef (- 0.5 xadj)))) ;;  (- xadj 1))))
 	     (ytorig (+ test-browse-yoffset (* (/ sizey 2) scalef (- yadj 0.5))))
 	     (boxw   90)
 	     (boxh   25)
 	     (gapx   20)
-	     (gapy   30))
-	(print "sizex: " sizex " sizey: " sizey " font: " (canvas-font cnv) " originx: " originx " originy: " originy " xtorig: " xtorig " ytorig: " ytorig " xadj: " xadj " yadj: " yadj)
+	     (gapy   30)
+	     (tests-hash (hash-table-ref tests-draw-state 'tests-info)))
+	;; (print "sizex: " sizex " sizey: " sizey " font: " (canvas-font cnv) " originx: " originx " originy: " originy " xtorig: " xtorig " ytorig: " ytorig " xadj: " xadj " yadj: " yadj)
 	(let loop ((hed (car (reverse sorted-testnames)))
 		   (tal (cdr (reverse sorted-testnames)))
 		   (llx xtorig)
 		   (lly ytorig)
 		   (urx (+ xtorig boxw))
 		   (ury (+ ytorig boxh)))
 	  ; (print "hed " hed " llx " llx " lly " lly " urx " urx " ury " ury)
 	  (canvas-text! cnv (+ llx 5)(+ lly 5) hed) ;; (conc testname " (" xtorig "," ytorig ")"))
 	  (canvas-rectangle! cnv llx urx lly ury)
+	  (hash-table-set! tests-hash hed (list llx urx (- sizey ury)(- sizey lly))) ;; NB// Swap ury and lly
 	  (if (not (null? tal))
 	      ;; leave a column of space to the right to list items
 	      (let ((have-room 
 		     (if #t ;; put "auto" here where some form of auto rearanging can be done
 			 (> (* 3 (+ boxw gapx)) (- urx xtorig))
@@ -626,11 +633,12 @@
 					      (iup:attribute x "VALUE"))
 					    (car (dashboard:update-target-selector key-listboxes)))))
 			     (dboard:data-set-target! *data* targ)
 			     (if updater-for-runs (updater-for-runs))
 			     (dashboard:update-run-command))))
-	 (tests-draw-state (make-hash-table))) ;; use for keeping state of the test canvas
+	 (tests-draw-state (make-hash-table)) ;; use for keeping state of the test canvas
+	 (test-patterns-textbox  #f))
     (hash-table-set! tests-draw-state 'first-time #t)
     (hash-table-set! tests-draw-state 'scalef 8)
     (tests:get-full-data test-names test-records '())
     (set! sorted-testnames (tests:sort-by-priority-and-waiton test-records))
     
@@ -642,11 +650,11 @@
       (iup:hbox
        (iup:label "Run on" #:size "40x")
        (iup:radio 
 	(iup:hbox
 	 (iup:toggle "Local" #:size "40x")
-	(iup:toggle "Server" #:size "40x")))
+	 (iup:toggle "Server" #:size "40x")))
        (let ((tb (iup:textbox 
 		  #:value "megatest "
 		  #:expand "HORIZONTAL"
 		  #:readonly "YES"
 		  #:font "Courier New, -12"
@@ -659,128 +667,159 @@
 					       (iup:attribute (dboard:data-get-command-tb *data*) "VALUE")
 					       ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
 				(system cmd))))))
 
      (iup:split
-       #:orientation "HORIZONTAL"
-       
-       (iup:split
-	;; Target, testpatt, state and status input boxes
-	#:value 300
-	(iup:vbox
-	 ;; Command to run
-	 (iup:frame
-	  #:title "Set the action to take"
-	  (iup:hbox
-	   ;; (iup:label "Command to run" #:expand "HORIZONTAL" #:size "70x" #:alignment "LEFT:ACENTER")
-	   (let* ((cmds-list '("runtests" "remove-runs" "set-state-status" "lock-runs" "unlock-runs"))
-		  (lb         (iup:listbox #:expand "HORIZONTAL"
-					   #:dropdown "YES"
-					   #:action (lambda (obj val index lbstate)
-						      ;; (print obj " " val " " index " " lbstate)
-						      (dboard:data-set-command! *data* val)
-						      (dashboard:update-run-command))))
-		  (default-cmd (car cmds-list)))
-	     (iuplistbox-fill-list lb cmds-list selected-item: default-cmd)
-	     (dboard:data-set-command! *data* default-cmd)
-	     lb)))
-	 (iup:frame
-	  #:title "Runname"
-	   (let* ((default-run-name (conc "ww" (seconds->work-week/day (current-seconds))))
-		  (tb (iup:textbox #:expand "HORIZONTAL"
-				   #:action (lambda (obj val txt)
-					      ;; (print "obj: " obj " val: " val " unk: " unk)
-					      (dboard:data-set-run-name! *data* txt) ;; (iup:attribute obj "VALUE"))
-					      (dashboard:update-run-command))
-				   #:value default-run-name))
-		  (lb (iup:listbox #:expand "HORIZONTAL"
-				   #:dropdown "YES"
-				   #:action (lambda (obj val index lbstate)
-					      (iup:attribute-set! tb "VALUE" val)
-					      (dboard:data-set-run-name! *data* val)
-					      (dashboard:update-run-command))))
-		  (refresh-runs-list (lambda ()
-				       (let* ((target        (dboard:data-get-target-string *data*))
-					      (runs-for-targ (mt:get-runs-by-patt *keys* "%" target))
-					      (runs-header   (vector-ref runs-for-targ 0))
-					      (runs-dat      (vector-ref runs-for-targ 1))
-					      (run-names     (cons default-run-name 
-								   (map (lambda (x)
-									  (db:get-value-by-header x runs-header "runname"))
-									runs-dat))))
-					 (iup:attribute-set! lb "REMOVEITEM" "ALL")
-					 (iuplistbox-fill-list lb run-names selected-item: default-run-name)))))
-	     (set! updater-for-runs refresh-runs-list)
-	     (refresh-runs-list)
-	     (dboard:data-set-run-name! *data* default-run-name)
-	     (iup:hbox
-	      tb
-	      lb)))
-
-	 (iup:frame
-	  #:title "SELECTORS"
-	  (iup:vbox
-	   ;; Text box for test patterns
-	   (iup:frame
-	    #:title "Test patterns (one per line)"
-	    (iup:textbox #:action (lambda (val a b)
-				    (dboard:data-set-test-patts!
-				     *data*
-				     (dboard:lines->test-patt b))
-				    (dashboard:update-run-command))
-			 #:value (dboard:test-patt->lines
-				  (dboard:data-get-test-patts *data*))
-			 #:expand "YES"
-			 #:multiline "YES"))
-	   (iup:frame
-	    #:title "Target"
-	    ;; Target selectors
-	    (apply iup:hbox
-		   (let* ((dat      (dashboard:update-target-selector key-listboxes action-proc: update-keyvals))
-			  (key-lb   (car dat))
-			  (combos   (cadr dat)))
-		     (set! key-listboxes key-lb)
-		     combos)))
-	   (iup:hbox
-	    ;; 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")
-	      (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")
-	      (lambda (all)
-		(dboard:data-set-statuses! *data* all)
-		(dashboard:update-run-command))))))))
-
-	(iup:frame
-	 #:title "Tests and Tasks"
-	 (iup:canvas #:action (make-canvas-action
-			       (lambda (cnv xadj yadj)
-				 ;; (print "cnv: " cnv " x: " x " y: " y)
-				 (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
-		     #:size "150x150"
-		     #:expand "YES"
-		     #:scrollbar "YES"
-		     #:posx "0.5"
-		     #:posy "0.5")))
-     
-       (iup:frame
-	#:title "Logs" ;; To be replaced with tabs
-	(let ((logs-tb (iup:textbox #:expand "YES"
-				    #:multiline "YES")))
-	  (dboard:data-set-logs-textbox! *data* logs-tb)
-	  logs-tb))
-       ))))
-  
+      #:orientation "HORIZONTAL"
+      
+      (iup:split
+       #:value 300
+
+       ;; Target, testpatt, state and status input boxes
+       ;;
+       (iup:vbox
+	;; Command to run
+	(iup:frame
+	 #:title "Set the action to take"
+	 (iup:hbox
+	  ;; (iup:label "Command to run" #:expand "HORIZONTAL" #:size "70x" #:alignment "LEFT:ACENTER")
+	  (let* ((cmds-list '("runtests" "remove-runs" "set-state-status" "lock-runs" "unlock-runs"))
+		 (lb         (iup:listbox #:expand "HORIZONTAL"
+					  #:dropdown "YES"
+					  #:action (lambda (obj val index lbstate)
+						     ;; (print obj " " val " " index " " lbstate)
+						     (dboard:data-set-command! *data* val)
+						     (dashboard:update-run-command))))
+		 (default-cmd (car cmds-list)))
+	    (iuplistbox-fill-list lb cmds-list selected-item: default-cmd)
+	    (dboard:data-set-command! *data* default-cmd)
+	    lb)))
+
+	(iup:frame
+	 #:title "Runname"
+	 (let* ((default-run-name (conc "ww" (seconds->work-week/day (current-seconds))))
+		(tb (iup:textbox #:expand "HORIZONTAL"
+				 #:action (lambda (obj val txt)
+					    ;; (print "obj: " obj " val: " val " unk: " unk)
+					    (dboard:data-set-run-name! *data* txt) ;; (iup:attribute obj "VALUE"))
+					    (dashboard:update-run-command))
+				 #:value default-run-name))
+		(lb (iup:listbox #:expand "HORIZONTAL"
+				 #:dropdown "YES"
+				 #:action (lambda (obj val index lbstate)
+					    (iup:attribute-set! tb "VALUE" val)
+					    (dboard:data-set-run-name! *data* val)
+					    (dashboard:update-run-command))))
+		(refresh-runs-list (lambda ()
+				     (let* ((target        (dboard:data-get-target-string *data*))
+					    (runs-for-targ (mt:get-runs-by-patt *keys* "%" target))
+					    (runs-header   (vector-ref runs-for-targ 0))
+					    (runs-dat      (vector-ref runs-for-targ 1))
+					    (run-names     (cons default-run-name 
+								 (map (lambda (x)
+									(db:get-value-by-header x runs-header "runname"))
+								      runs-dat))))
+				       (iup:attribute-set! lb "REMOVEITEM" "ALL")
+				       (iuplistbox-fill-list lb run-names selected-item: default-run-name)))))
+	   (set! updater-for-runs refresh-runs-list)
+	   (refresh-runs-list)
+	   (dboard:data-set-run-name! *data* default-run-name)
+	   (iup:hbox
+	    tb
+	    lb)))
+
+	(iup:frame
+	 #:title "SELECTORS"
+	 (iup:vbox
+	  ;; Text box for test patterns
+	  (iup:frame
+	   #:title "Test patterns (one per line)"
+	   (let ((tb (iup:textbox #:action (lambda (val a b)
+					     (dboard:data-set-test-patts!
+					      *data*
+					      (dboard:lines->test-patt b))
+					     (dashboard:update-run-command))
+				  #:value (dboard:test-patt->lines
+					   (dboard:data-get-test-patts *data*))
+				  #:expand "YES"
+				  #:multiline "YES")))
+	     (set! test-patterns-textbox tb)
+	     tb))
+	  (iup:frame
+	   #:title "Target"
+	   ;; Target selectors
+	   (apply iup:hbox
+		  (let* ((dat      (dashboard:update-target-selector key-listboxes action-proc: update-keyvals))
+			 (key-lb   (car dat))
+			 (combos   (cadr dat)))
+		    (set! key-listboxes key-lb)
+		    combos)))
+	  (iup:hbox
+	   ;; 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")
+	     (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")
+	     (lambda (all)
+	       (dboard:data-set-statuses! *data* all)
+	       (dashboard:update-run-command))))))))
+      
+       (iup:frame
+	#:title "Tests and Tasks"
+	(iup:canvas #:action (make-canvas-action
+			      (lambda (cnv xadj yadj)
+				;; (print "cnv: " cnv " x: " x " y: " y)
+				(dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
+		    ;; Following doesn't work 
+		    ;; #:wheel-cb (make-canvas-action
+		    ;;           (lambda (cnv xadj yadj)
+		    ;;    	 ;; (print "cnv: " cnv " x: " x " y: " y)
+		    ;;    	 (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
+		    #:size "150x150"
+		    #:expand "YES"
+		    #:scrollbar "YES"
+		    #:posx "0.5"
+		    #:posy "0.5"
+		    #:button-cb (lambda (obj btn pressed x y status)
+				  (let ((tests-info (hash-table-ref tests-draw-state  'tests-info)))
+				    ;; (print "x\ty\tllx\tlly\turx\tury")
+				    (for-each (lambda (test-name)
+						(let* ((rec-coords (hash-table-ref tests-info test-name))
+						       (llx        (list-ref rec-coords 0))
+						       (urx        (list-ref rec-coords 1))
+						       (lly        (list-ref rec-coords 2))
+						       (ury        (list-ref rec-coords 3)))
+						  ;; (print x "\t" y "\t" llx "\t" lly "\t" urx "\t" ury "\t" test-name " "
+						  (if (and (> x llx)
+							   (> y lly)
+							   (< x urx)
+							   (< y ury))
+						      (let ((patterns (string-split (iup:attribute test-patterns-textbox "VALUE"))))
+							(if (not (member test-name patterns))
+							    (let* ((newpatt (string-intersperse (cons test-name patterns) "\n")))
+							      (iup:attribute-set! test-patterns-textbox "VALUE" newpatt)
+							      (dboard:data-set-test-patts! *data* (dboard:lines->test-patt newpatt))
+							      (dashboard:update-run-command)))))))
+					      (hash-table-keys tests-info)))))))
+      ;; (print "obj: " obj " btn: " btn " pressed: " pressed " x: " x " y: " y " status: " status))
+      
+      (iup:frame
+       #:title "Logs" ;; To be replaced with tabs
+       (let ((logs-tb (iup:textbox #:expand "YES"
+				   #:multiline "YES")))
+	 (dboard:data-set-logs-textbox! *data* logs-tb)
+	 logs-tb))))))
+
 
 ;; (trace dashboard:populate-target-dropdown
 ;;        common:list-is-sublist)
 ;; 
 ;;       ;; key1 key2 key3 ...
@@ -1035,11 +1074,11 @@
 		     (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")))
+		   '("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)
@@ -1055,54 +1094,54 @@
 						 (mark-for-update)
 						 (debug:print 6 "*start-run-offset* " *start-run-offset* " maxruns: " maxruns ", val: " val " oldmax: " oldmax)
 						 (iup:attribute-set! obj "MAX" (* maxruns 10))))
 			   #:expand "YES"
 			   #:max (* 10 (length *allruns*)))))
-	   ;(iup:button "inc rows" #:action (lambda (obj)(set! *num-tests* (+ *num-tests* 1))))
-	   ;(iup:button "dec rows" #:action (lambda (obj)(set! *num-tests* (if (> *num-tests* 0)(- *num-tests* 1) 0))))
+					;(iup:button "inc rows" #:action (lambda (obj)(set! *num-tests* (+ *num-tests* 1))))
+					;(iup:button "dec rows" #:action (lambda (obj)(set! *num-tests* (if (> *num-tests* 0)(- *num-tests* 1) 0))))
 	   )
 	  )
     
     ;; create the left most column for the run key names and the test names 
     (set! lftlst (list (iup:hbox
 			(iup:label) ;; (iup:valuator)
 			(apply iup:vbox 
 			       (map (lambda (x)		
 				      (let ((res (iup:hbox #:expand "HORIZONTAL"
-						  (iup:label x #:size "x15" #:fontsize "10" #:expand "HORIZONTAL")
-						  (iup:textbox #:size "x15" #:fontsize "10" #:value "%" #:expand "HORIZONTAL"
-							       #:action (lambda (obj unk val)
-									  (mark-for-update)
-									  (update-search x val))))))
+							   (iup:label x #:size "x15" #:fontsize "10" #:expand "HORIZONTAL")
+							   (iup:textbox #:size "x15" #:fontsize "10" #:value "%" #:expand "HORIZONTAL"
+									#:action (lambda (obj unk val)
+										   (mark-for-update)
+										   (update-search x val))))))
 					(set! i (+ i 1))
 					res))
 				    keynames)))))
     (let loop ((testnum  0)
 	       (res      '()))
       (cond
        ((>= testnum ntests)
 	;; now lftlst will be an hbox with the test keys and the test name labels
 	(set! lftlst (append lftlst (list (iup:hbox  #:expand "HORIZONTAL"
-					   (iup:valuator #:valuechanged_cb (lambda (obj)
-									     (let ((val (string->number (iup:attribute obj "VALUE")))
-										   (oldmax  (string->number (iup:attribute obj "MAX")))
-										   (newmax  (* 10 (length *alltestnamelst*))))
-									       (set! *please-update-buttons* #t)
-									       (set! *start-test-offset* (inexact->exact (round (/ val 10))))
-									       (debug:print 6 "*start-test-offset* " *start-test-offset* " val: " val " newmax: " newmax " oldmax: " oldmax)
-									       (if (< val 10)
-										   (iup:attribute-set! obj "MAX" newmax))
-									       ))
-							 #:expand "VERTICAL" 
-							 #:orientation "VERTICAL")
-					   (apply iup:vbox (reverse res)))))))
+						     (iup:valuator #:valuechanged_cb (lambda (obj)
+										       (let ((val (string->number (iup:attribute obj "VALUE")))
+											     (oldmax  (string->number (iup:attribute obj "MAX")))
+											     (newmax  (* 10 (length *alltestnamelst*))))
+											 (set! *please-update-buttons* #t)
+											 (set! *start-test-offset* (inexact->exact (round (/ val 10))))
+											 (debug:print 6 "*start-test-offset* " *start-test-offset* " val: " val " newmax: " newmax " oldmax: " oldmax)
+											 (if (< val 10)
+											     (iup:attribute-set! obj "MAX" newmax))
+											 ))
+								   #:expand "VERTICAL" 
+								   #:orientation "VERTICAL")
+						     (apply iup:vbox (reverse res)))))))
        (else
 	(let ((labl  (iup:button "" 
 				 #:flat "YES" 
 				 #:alignment "ALEFT"
-				 ; #:image img1
-				 ; #:impress img2
+					; #:image img1
+					; #:impress img2
 				 #:size "x15"
 				 #:expand "HORIZONTAL"
 				 #:fontsize "10"
 				 #:action (lambda (obj)
 					    (mark-for-update)
@@ -1144,11 +1183,11 @@
 				       #:action (lambda (x)
 						  (let* ((toolpath (car (argv)))
 							 (buttndat (hash-table-ref *buttondat* button-key))
 							 (test-id  (db:test-get-id (vector-ref buttndat 3)))
 							 (cmd  (conc toolpath " -test " test-id "&")))
-						    ;(print "Launching " cmd)
+					;(print "Launching " cmd)
 						    (system cmd))))))
 	  (hash-table-set! *buttondat* button-key (vector 0 "100 100 100" button-key #f #f)) 
 	  (vector-set! testvec testnum butn)
 	  (loop runnum (+ testnum 1) testvec (cons butn res))))))
     ;; now assemble the hdrlst and bdylst and kick off the dialog
@@ -1178,18 +1217,18 @@
 	(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")
 	tabs)))
-     (vector keycol lftcol header runsvec)))
+    (vector keycol lftcol header runsvec)))
 
 (if (or (args:get-arg "-rows")
 	(get-environment-variable "DASHBOARDROWS" ))
     (begin
-        (set! *num-tests* (string->number (or (args:get-arg "-rows")
-					      (get-environment-variable "DASHBOARDROWS"))))
-	(update-rundat "%" *num-runs* "%/%" '()))
+      (set! *num-tests* (string->number (or (args:get-arg "-rows")
+					    (get-environment-variable "DASHBOARDROWS"))))
+      (update-rundat "%" *num-runs* "%/%" '()))
     (set! *num-tests* (min (max (update-rundat "%" *num-runs* "%/%" '()) 8) 20)))
 
 (define *tim* (iup:timer))
 (define *ord* #f)
 (iup:attribute-set! *tim* "TIME" 300)
@@ -1261,11 +1300,11 @@
 	    (cdb:remote-run examine-run *db* runid)))
 	(begin
 	  (print "ERROR: runid is not a number " (args:get-arg "-run"))
 	  (exit 1)))))
  ((args:get-arg "-test")
-    (let ((testid (string->number (args:get-arg "-test"))))
+  (let ((testid (string->number (args:get-arg "-test"))))
     (if testid
 	(examine-test testid)
 	(begin
 	  (print "ERROR: testid is not a number " (args:get-arg "-test"))
 	  (exit 1)))))

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -108,11 +108,11 @@
 ;; "," => "\n"
 (define (dboard:test-patt->lines test-patt)
   (string-substitute (regexp ",") "\n" test-patt))
 
 (define (dboard:lines->test-patt lines)
-  (string-substitute (regexp "\n") "," lines))
+  (string-substitute (regexp "\n") "," lines #t))
 
 
 ;;======================================================================
 ;; P R O C E S S   R U N S
 ;;======================================================================