Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -270,11 +270,11 @@
 	       (keydat        (if testdat (open-run-close db:get-key-val-pairs #f run-id) #f))
 	       (rundat        (if testdat (open-run-close db:get-run-info #f run-id) #f))
 	       (runname       (if testdat (db:get-value-by-header (db:get-row rundat)
 								  (db:get-header rundat)
 								  "runname") #f))
-					;(teststeps     (if testdat (db:get-steps-for-test db test-id) #f))
+	       (teststeps     (if testdat (db:get-compressed-steps test-id) '()))
 	       (logfile       "/this/dir/better/not/exist")
 	       (rundir        logfile)
 	       (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
 	       (testname      (if testdat (db:test-get-testname testdat) "n/a"))
 	       (testmeta      (if testdat 
@@ -309,14 +309,16 @@
 						       request-update))
 				    (newtestdat (if need-update (open-run-close db:get-test-info-by-id #f test-id))))
 			       (cond
 				((and need-update newtestdat)
 				 (set! testdat newtestdat)
-				 (set! teststeps    (open-run-close db:get-steps-for-test db test-id))
+				 (set! teststeps    (db:get-compressed-steps test-id))
 				 (set! logfile      (conc (db:test-get-rundir testdat) "/" (db:test-get-final_logf testdat)))
 				 (set! rundir       (db:test-get-rundir testdat))
-				 (set! testfullname (db:test-get-fullname testdat)))
+				 (set! testfullname (db:test-get-fullname testdat))
+				 ;; (debug:print 0 "INFO: teststeps=" (intersperse teststeps "\n    "))
+				 )
 				(need-update ;; if this was true and yet there is no data ....
 				 (db:test-set-testname! testdat "DEAD OR DELETED TEST"))))))
 	       (widgets      (make-hash-table))
 	       (meta-widgets (make-hash-table))
 	       (self         #f)
@@ -391,96 +393,96 @@
 					    (iup:button "Close"       #:action (lambda (x)(exit)) #:size "80x"))
 					   (apply 
 					    iup:hbox
 					    (list command-text-box command-launch-button))))
 			       (set-fields-panel test-id testdat)
-			       (iup:hbox
-				(iup:frame 
-				 #:title "Test Steps"
-				 (let ((stepsdat ;;(iup:label "Test steps ........................................." 
-					;;	   #:expand "YES" 
-					;;	   #:size "200x150"
-					;;	   #:alignment "ALEFT:ATOP")))
-					(iup:textbox ;; #:action (lambda (obj char val)
-					 ;;    	#f)
-					 #:expand "YES"
-					 #:multiline "YES"
-					 #:font "Courier New, -10"
-					 #:size "60x100")))
-				   (hash-table-set! widgets "Test Steps" 
-						    (lambda (testdat)
-						      (let* ((currval (iup:attribute stepsdat "VALUE")) ;; "TITLE"))
-							     (fmtstr  "~20a~10a~10a~12a~15a~20a")
-							     (comprsteps (open-run-close db:get-steps-table db test-id))
-							     (newval  (string-intersperse 
-								       (append
-									(list 
-									 (format #f fmtstr "Stepname" "Start" "End" "Status" "Time" "Logfile")
-									 (format #f fmtstr "========" "=====" "===" "======" "====" "======="))
-									(map (lambda (x)
-									       ;; take advantage of the \n on time->string
-									       (format #f fmtstr
-										       (vector-ref x 0)
-										       (let ((s (vector-ref x 1)))
-											 (if (number? s)(seconds->time-string s) s))
-										       (let ((s (vector-ref x 2)))
-											 (if (number? s)(seconds->time-string s) s))
-										       (vector-ref x 3)    ;; status
-										       (vector-ref x 4)
-										       (vector-ref x 5)))  ;; time delta
-									     (sort (hash-table-values comprsteps)
-										   (lambda (a b)
-										     (let ((time-a (vector-ref a 1))
-											   (time-b (vector-ref b 1)))
-										       (if (and (number? time-a)(number? time-b))
-											   (if (< time-a time-b)
-											       #t
-											       (if (eq? time-a time-b)
-												   (string<? (conc (vector-ref a 2))
-													     (conc (vector-ref b 2)))
-												   #f))
-											   (string<? (conc time-a)(conc time-b))))))))
-								       "\n")))
-							(if (not (equal? currval newval))
-							    (iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
-				   stepsdat))
-				;; populate the Test Data panel
-				(iup:frame
-				 #:title "Test Data"
-				 (let ((test-data
-					(iup:textbox  ;; #:action (lambda (obj char val)
-					 ;;   	#f)
-					 #:expand "YES"
-					 #:multiline "YES"
-					 #:font "Courier New, -10"
-					 #:size "100x100")))
-				   (hash-table-set! widgets "Test Data"
-						    (lambda (testdat) ;; 
-						      (let* ((currval (iup:attribute test-data "VALUE")) ;; "TITLE"))
-							     (fmtstr  "~10a~10a~10a~10a~7a~7a~6a~6a~a") ;; category,variable,value,expected,tol,units,type,comment
-							     (newval  (string-intersperse 
-								       (append
-									(list 
-									 (format #f fmtstr "Category" "Variable" "Value" "Expected" "Tol" "Status" "Units" "Type" "Comment")
-									 (format #f fmtstr "========" "========" "=====" "========" "===" "======" "=====" "====" "======="))
-									(map (lambda (x)
-									       (format #f fmtstr
-										       (db:test-data-get-category x)
-										       (db:test-data-get-variable x)
-										       (db:test-data-get-value    x)
-										       (db:test-data-get-expected x)
-										       (db:test-data-get-tol      x)
-										       (db:test-data-get-status   x)
-										       (db:test-data-get-units    x)
-										       (db:test-data-get-type     x)
-										       (db:test-data-get-comment  x)))
-									     (open-run-close db:read-test-data #f test-id "%")))
-								       "\n")))
-							(if (not (equal? currval newval))
-							    (iup:attribute-set! test-data "VALUE" newval ))))) ;; "TITLE" newval)))))
-				   test-data)))
-			       )))
+			       (let ((tabs 
+				      (iup:tabs
+				       ;; Replace here with matrix
+				       (let ((steps-matrix (iup:matrix
+							    #:font   "Courier New, -8"
+							    #:expand "YES"
+							    #:scrollbar "YES"
+							    #:numcol 6
+							    #:numlin 30
+							    #:numcol-visible 6
+							    #:numlin-visible 5
+							    #:click-cb (lambda (obj lin col status)
+									 (if (equal? col 6)
+									     (let ((fname (iup:attribute obj (conc lin ":" col))))
+									       (viewlog fname)
+									       (print "obj: " obj " lin: " lin " col: " col " status: " status)))))
+							   ))
+					 ;; (let loop ((count 0))
+					 ;;   (iup:attribute-set! steps-matrix "FITTOTEXT" (conc "L" count))
+					 ;;   (if (< count 30)
+					 ;;       (loop (+ count 1))))
+					 (iup:attribute-set! steps-matrix "0:1" "Step Name")
+					 (iup:attribute-set! steps-matrix "0:2" "Start")
+					 (iup:attribute-set! steps-matrix "0:3" "End")
+					 (iup:attribute-set! steps-matrix "WIDTH3" "50")
+					 (iup:attribute-set! steps-matrix "0:4" "Status")
+					 (iup:attribute-set! steps-matrix "WIDTH4" "50")
+					 (iup:attribute-set! steps-matrix "0:5" "Duration")
+					 (iup:attribute-set! steps-matrix "0:6" "Log File")
+					 (iup:attribute-set! steps-matrix "ALIGNMENT1" "ALEFT")
+					 ;; (iup:attribute-set! steps-matrix "FIXTOTEXT" "C1")
+					 (iup:attribute-set! steps-matrix "RESIZEMATRIX" "YES")
+					 (let ((proc
+						(lambda (testdat)
+						  (if (not (null? teststeps))
+						      (let loop ((hed    (car teststeps))
+								 (tal    (cdr teststeps))
+								 (rownum 1)
+								 (colnum 1))
+							(let ((val (vector-ref hed (- colnum 1))))
+							  (iup:attribute-set! steps-matrix  (conc rownum ":" colnum)(if val (conc val) ""))
+							  (if (< colnum 6)
+							      (loop hed tal rownum (+ colnum 1))
+							      (if (not (null? tal))
+								  (loop (car tal)(cdr tal)(+ rownum 1) 1)))))))))
+					   (hash-table-set! widgets "StepsMatrix" proc)
+					   (proc testdat))
+					 steps-matrix)
+				       ;; populate the Test Data panel
+				       (iup:frame
+					#:title "Test Data"
+					(let ((test-data
+					       (iup:textbox  ;; #:action (lambda (obj char val)
+						;;   	#f)
+						#:expand "YES"
+						#:multiline "YES"
+						#:font "Courier New, -10"
+						#:size "100x100")))
+					  (hash-table-set! widgets "Test Data"
+							   (lambda (testdat) ;; 
+							     (let* ((currval (iup:attribute test-data "VALUE")) ;; "TITLE"))
+								    (fmtstr  "~10a~10a~10a~10a~7a~7a~6a~6a~a") ;; category,variable,value,expected,tol,units,type,comment
+								    (newval  (string-intersperse 
+									      (append
+									       (list 
+										(format #f fmtstr "Category" "Variable" "Value" "Expected" "Tol" "Status" "Units" "Type" "Comment")
+										(format #f fmtstr "========" "========" "=====" "========" "===" "======" "=====" "====" "======="))
+									       (map (lambda (x)
+										      (format #f fmtstr
+											      (db:test-data-get-category x)
+											      (db:test-data-get-variable x)
+											      (db:test-data-get-value    x)
+											      (db:test-data-get-expected x)
+											      (db:test-data-get-tol      x)
+											      (db:test-data-get-status   x)
+											      (db:test-data-get-units    x)
+											      (db:test-data-get-type     x)
+											      (db:test-data-get-comment  x)))
+										    (open-run-close db:read-test-data #f test-id "%")))
+									      "\n")))
+							       (if (not (equal? currval newval))
+								   (iup:attribute-set! test-data "VALUE" newval ))))) ;; "TITLE" newval)))))
+					  test-data)))))
+				 (iup:attribute-set! tabs "TABTITLE0" "Steps")
+				 (iup:attribute-set! tabs "TABTITLE1" "Test Data")
+				 tabs))))
 	    (iup:show self)
 	    (iup:callback-set! *tim* "ACTION_CB"
 			       (lambda (x)
 				 ;; Now start keeping the gui updated from the db
 				 (refreshdat) ;; update from the db here

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1754,10 +1754,70 @@
       (for-each 
        (lambda (step)
 	 (debug:print 6 "step=" step)
 	 (let ((record (hash-table-ref/default 
 			res 
+			(db:step-get-stepname step) 
+			;;        stepname                start end status Duration  Logfile 
+			(vector (db:step-get-stepname step) ""   "" ""     ""        ""))))
+	   (debug:print 6 "record(before) = " record 
+			"\nid:       " (db:step-get-id step)
+			"\nstepname: " (db:step-get-stepname step)
+			"\nstate:    " (db:step-get-state step)
+			"\nstatus:   " (db:step-get-status step)
+			"\ntime:     " (db:step-get-event_time step))
+	   (case (string->symbol (db:step-get-state step))
+	     ((start)(vector-set! record 1 (db:step-get-event_time step))
+	      (vector-set! record 3 (if (equal? (vector-ref record 3) "")
+					(db:step-get-status step)))
+	      (if (> (string-length (db:step-get-logfile step))
+		     0)
+		  (vector-set! record 5 (db:step-get-logfile step))))
+	     ((end)  
+	      (vector-set! record 2 (any->number (db:step-get-event_time step)))
+	      (vector-set! record 3 (db:step-get-status step))
+	      (vector-set! record 4 (let ((startt (any->number (vector-ref record 1)))
+					  (endt   (any->number (vector-ref record 2))))
+				      (debug:print 4 "record[1]=" (vector-ref record 1) 
+						   ", startt=" startt ", endt=" endt
+						   ", get-status: " (db:step-get-status step))
+				      (if (and (number? startt)(number? endt))
+					  (seconds->hr-min-sec (- endt startt)) "-1")))
+	      (if (> (string-length (db:step-get-logfile step))
+		     0)
+		  (vector-set! record 5 (db:step-get-logfile step))))
+	     (else
+	      (vector-set! record 2 (db:step-get-state step))
+	      (vector-set! record 3 (db:step-get-status step))
+	      (vector-set! record 4 (db:step-get-event_time step))))
+	   (hash-table-set! res (db:step-get-stepname step) record)
+	   (debug:print 6 "record(after)  = " record 
+			"\nid:       " (db:step-get-id step)
+			"\nstepname: " (db:step-get-stepname step)
+			"\nstate:    " (db:step-get-state step)
+			"\nstatus:   " (db:step-get-status step)
+			"\ntime:     " (db:step-get-event_time step))))
+       ;; (else   (vector-set! record 1 (db:step-get-event_time step)))
+       (sort steps (lambda (a b)
+		     (cond
+		      ((<   (db:step-get-event_time a)(db:step-get-event_time b)) #t)
+		      ((eq? (db:step-get-event_time a)(db:step-get-event_time b)) 
+		       (<   (db:step-get-id a)        (db:step-get-id b)))
+		      (else #f)))))
+      res)))
+
+;; get a pretty table to summarize steps
+;;
+(define (db:get-steps-table-list db test-id)
+  (let ((steps   (db:get-steps-for-test db test-id)))
+    ;; organise the steps for better readability
+    (let ((res (make-hash-table)))
+      (for-each 
+       (lambda (step)
+	 (debug:print 6 "step=" step)
+	 (let ((record (hash-table-ref/default 
+			res 
 			(db:step-get-stepname step) 
 			;;        stepname                start end status    
 			(vector (db:step-get-stepname step) ""   "" ""     "" ""))))
 	   (debug:print 6 "record(before) = " record 
 			"\nid:       " (db:step-get-id step)
@@ -1803,10 +1863,36 @@
 		      ((eq? (db:step-get-event_time a)(db:step-get-event_time b)) 
 		       (<   (db:step-get-id a)        (db:step-get-id b)))
 		      (else #f)))))
       res)))
 
+(define (db:get-compressed-steps test-id)
+  (let* ((comprsteps (open-run-close db:get-steps-table #f test-id)))
+    (map (lambda (x)
+	   ;; take advantage of the \n on time->string
+	   (vector
+	    (vector-ref x 0)
+	    (let ((s (vector-ref x 1)))
+	      (if (number? s)(seconds->time-string s) s))
+	    (let ((s (vector-ref x 2)))
+	      (if (number? s)(seconds->time-string s) s))
+	    (vector-ref x 3)    ;; status
+	    (vector-ref x 4)
+	    (vector-ref x 5)))  ;; time delta
+	 (sort (hash-table-values comprsteps)
+	       (lambda (a b)
+		 (let ((time-a (vector-ref a 1))
+		       (time-b (vector-ref b 1)))
+		   (if (and (number? time-a)(number? time-b))
+		       (if (< time-a time-b)
+			   #t
+			   (if (eq? time-a time-b)
+			       (string<? (conc (vector-ref a 2))
+					 (conc (vector-ref b 2)))
+			       #f))
+		       (string<? (conc time-a)(conc time-b)))))))))
+
 ;;======================================================================
 ;; M I S C   M A N A G E M E N T   I T E M S 
 ;;======================================================================
 
 ;; the new prereqs calculation, looks also at itempath if specified

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.5413)
+(define megatest-version 1.5414)
 

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -57,11 +57,11 @@
 
 [server]
 
 # If the server can't be started on this port it will try the next port until
 # it succeeds
-port 8090
+port 8099
 
 # This server will keep running this number of hours after last access. 
 # Three minutes is 0.05 hours
 timeout 0.05