Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -82,11 +82,11 @@
 (define *header*       #f)
 (define *allruns*     '())
 (define *buttondat*    (make-hash-table)) ;; <run-id color text test run-key>
 (define *alltestnamelst* '())
 (define *searchpatts*  (make-hash-table))
-(define *num-runs*      6)
+(define *num-runs*      8)
 (define *num-tests*     15)
 (define *start-run-offset*  0)
 (define *start-test-offset* 0)
 (define *examine-test-dat* (make-hash-table))
 (define *exit-started* #f)
@@ -402,10 +402,15 @@
 	   (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
 	   (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
 	   (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
 	   (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
 	   (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))
+	   (iup:valuator #:valuechanged_cb (lambda (obj)
+					     (let ((val (iup:attribute obj "VALUE")))
+					       (set! *start-run-offset* (inexact->exact (round (string->number val))))
+					       (iup:attribute-set! obj "MAX" (length *allruns*))))
+			 #:expand "YES")
 	   ;(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))))
 	   )
 	  )
     
@@ -426,11 +431,15 @@
 	       (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 
-					   (iup:valuator #:action (lambda (obj val)(print "Got: " obj ", " val)) 
+					   (iup:valuator #:valuechanged_cb (lambda (obj)
+									     (let ((val (iup:attribute obj "VALUE")))
+									       (set! *start-test-offset* (inexact->exact (round (string->number val))))
+									       (iup:attribute-set! obj "MAX" (length *alltestnamelst*))
+									       ) )
 							 #:expand "YES" 
 							 #:orientation "VERTICAL")
 					   (apply iup:vbox (reverse res)))))))
        (else
 	(let ((labl  (iup:button ""