@@ -2089,11 +2089,12 @@
                                   (run-id   (dboard:tabdat-curr-run-id tabdat))
                                   (run-info (rmt:get-run-info run-id))
                                   (target   (rmt:get-target run-id))
                                   (runname  (db:get-value-by-header (db:get-rows run-info)
                                                                     (db:get-header run-info) "runname"))
-                                  (test-name (db:test-get-testname (rmt:get-test-info-by-id run-id test-id)))
+				  (test-info  (rmt:get-test-info-by-id run-id test-id))
+                                  (test-name (db:test-get-testname test-info))
                                   (testpatt  (let ((tlast (rmt:tasks-get-last target runname)))
                                                 (if tlast
                                                     (let ((tpatt (tasks:task-get-testpatt tlast)))
                                                       (if (member tpatt '("0" 0)) ;; known bad historical value - remove in 2017
                                                           "%"
@@ -2111,18 +2112,18 @@
                                (system testpanel-cmd))
                               
                               ((member #\2 status-chars) ;; 2 is middle mouse button
                                
                                (debug:print-info 13 *default-log-port* "mmb- test-name="test-name" testpatt="testpatt)
-                               (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path) ;; popup-menu
+                               (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
                                          #:x 'mouse
                                          #:y 'mouse
                                          #:modal? "NO")
                                )
                               (else
                                (debug:print-info 13 *default-log-port* "unhandled status in run-summary-click-cb.  Doing right click action. (status is corrupted on Brandon's ubuntu host - bad/buggy  iup install??" )
-                               (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path) ;; popup-menu
+                               (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
                                          #:x 'mouse
                                          #:y 'mouse
                                          #:modal? "NO")
                                )
                               )
@@ -2302,11 +2303,11 @@
 		     #:step 0.01)))
      ;;(iup:button "inc rows" #:action (lambda (obj)(dboard:tabdat-num-tests-set! tabdat (+ (dboard:tabdat-num-tests tabdat) 1))))
 					;(iup:button "dec rows" #:action (lambda (obj)(dboard:tabdat-num-tests-set! tabdat (if (> (dboard:tabdat-num-tests tabdat) 0)(- (dboard:tabdat-num-tests tabdat) 1) 0))))
      )))
 
-(define (dashboard:popup-menu  run-id test-id target runname test-name testpatt item-test-path)
+(define (dashboard:popup-menu  run-id test-id target runname test-name testpatt item-test-path test-info)
   (iup:menu 
    (iup:menu-item
     "Test Control Panel"
     #:action
     (lambda (obj)
@@ -2315,13 +2316,37 @@
               (conc toolpath " -test " run-id "," test-id " &")))
         (system testpanel-cmd)
         )))
    
    (iup:menu-item
-    (conc "View Log (not yet implemented) " item-test-path)
+    (conc "View Log " item-test-path)
+    #:action
+    (lambda (obj)
+      (let* ((rundir    (db:test-get-rundir      test-info))
+	     (logf      (db:test-get-final_logf  test-info))
+	     (fullfile  (conc rundir "/" logf)))
+	(if (common:file-exists? fullfile)
+	    (dcommon:run-html-viewer fullfile)
+	    (message-window (conc "file " fullfile " not found.")))))
     )
-   
+   (let* ((steps (tests:get-compressed-steps run-id test-id))   ;; #<stepname start end status Duration Logfile Comment id>
+	  (rundir (db:test-get-rundir test-info)))
+     (iup:menu-item
+      "Step logs"
+      (apply iup:menu
+	     (map (lambda (step)
+		    (let ((stepname (vector-ref step 0))
+			  (logfile  (vector-ref step 5))
+			  (status   (vector-ref step 3)))
+		      (iup:menu-item
+		       (conc stepname "/" (if (string=? logfile "") "no log!" logfile) " (" status ")")
+		       #:action (lambda (obj)
+				  (let ((fullfile (conc rundir "/" logfile)))
+				    (if (common:file-exists? fullfile)
+					(dcommon:run-html-viewer fullfile)
+					(message-window (conc "file " fullfile " not found"))))))))
+		  steps))))
    (iup:menu-item
     (conc "Rerun " item-test-path)
     #:action
     (lambda (obj)
       (common:run-a-command
@@ -2562,11 +2587,12 @@
 					      (run-id   (db:test-get-run_id (vector-ref buttndat 3)))
 					      (run-info (rmt:get-run-info run-id))
 					      (target   (rmt:get-target run-id))
 					      (runname  (db:get-value-by-header (db:get-rows run-info)
 										(db:get-header run-info) "runname"))
-					      (test-name (db:test-get-testname (rmt:get-test-info-by-id run-id test-id)))
+					      (test-info (rmt:get-test-info-by-id run-id test-id))
+					      (test-name (db:test-get-testname test-info))
 					      (testpatt  (let ((tlast (rmt:tasks-get-last target runname)))
 							   (if tlast
 							       (let ((tpatt (tasks:task-get-testpatt tlast)))
 								 (if (member tpatt '("0" 0)) ;; known bad historical value - remove in 2017
 								     "%"
@@ -2574,11 +2600,11 @@
 							       "%")))
                                               (item-path (db:test-get-item-path (rmt:get-test-info-by-id run-id test-id)))
                                               (item-test-path (conc test-name "/" (if (equal? item-path "")
 									"%" 
 									item-path))))
-					 (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path) ;; popup-menu
+					 (iup:show (dashboard:popup-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
 						   #:x 'mouse
 						   #:y 'mouse
 						   #:modal? "NO")
 					 ;; (print "got here")
 					 ))