Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -116,5 +116,16 @@
 			  (unsetenv var))))
 		  lst)
 	res)
       '()))
 		  
+;;======================================================================
+;; time and date nice to have stuff
+;;======================================================================
+
+(define (seconds->hr-min-sec secs)
+  (let* ((hrs (quotient secs 3600))
+	 (min (quotient (- secs (* hrs 3600)) 60))
+	 (sec (- secs (* hrs 3600)(* min 60))))
+    (conc (if (> hrs 0)(conc hrs "hr ") "")
+	  (if (> min 0)(conc min "m ")  "")
+	  sec "s")))

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -112,12 +112,12 @@
 			 (lambda (testdat)(conc (db:test-get-diskfree testdat))))
 	    (store-label "CPULoad"
 			 (iup:label (conc (db:test-get-cpuload testdat)) #:expand "HORIZONTAL")
 			 (lambda (testdat)(conc (db:test-get-cpuload testdat))))
 	    (store-label "RunDuration"
-			 (iup:label (conc (db:test-get-run_duration testdat)) #:expand "HORIZONTAL")
-			 (lambda (testdat)(conc (db:test-get-run_duration testdat))))
+			 (iup:label (conc (seconds->hr-min-sec (db:test-get-run_duration testdat))) #:expand "HORIZONTAL")
+			 (lambda (testdat)(conc (seconds->hr-min-sec (db:test-get-run_duration testdat)))))
 	    (store-label "CPULoad"
 			 (iup:label (conc (db:test-get-final_logf testdat)) #:expand "HORIZONTAL")
 			 (lambda (testdat)(conc (db:test-get-final_logf testdat)))))))))
 
 ;; use a global for setting the buttons colors