Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -159,15 +159,20 @@
 (define (next-sort-option)
   (if (>= *tests-sort-reverse* 5)
       (set! *tests-sort-reverse* 0)
       (set! *tests-sort-reverse* (+ *tests-sort-reverse* 1)))
   *tests-sort-reverse*)
+
+(define *tests-sort-reverse* 
+  (let ((t-sort (assoc (configf:lookup *configdat* "dashboard" "testsort") *tests-sort-type-index*)))
+    (if t-sort
+	(cadr t-sort)
+	3)))
 
 (define (get-curr-sort)
   (vector-ref *tests-sort-options* *tests-sort-reverse*))
 
-(define *tests-sort-reverse* 3)
 (define *hide-empty-runs* #f)
 (define *hide-not-hide* #t) ;; toggle for hide/not hide
 (define *hide-not-hide-button* #f)
 (define *hide-not-hide-tabs* #f)
 
@@ -1205,13 +1210,14 @@
 		     (lb         (iup:listbox #:expand "HORIZONTAL"
 					      #:dropdown "YES"
 					      #:action (lambda (obj val index lbstate)
 							 (set! *tests-sort-reverse* index)
 							 (mark-for-update))))
-		     (default-cmd (car cmds-list)))
+		     (default-cmd (car (list-ref *tests-sort-type-index* *tests-sort-reverse*))))
 		(iuplistbox-fill-list lb cmds-list selected-item: default-cmd)
-		(set! *tests-sort-reverse* 0)
+		(mark-for-update)
+		;; (set! *tests-sort-reverse* *tests-sort-reverse*0)
 		lb)
 	      ;; (iup:button "Sort -t"   #:action (lambda (obj)
 	      ;;   				 (next-sort-option)
 	      ;;   				 (iup:attribute-set! obj "TITLE" (vector-ref (vector-ref *tests-sort-options* *tests-sort-reverse*) 0))
 	      ;;   				 (mark-for-update)))
@@ -1531,6 +1537,27 @@
 			     (mutex-lock! *update-mutex*)
 			     (set! *update-is-running* #f)
 			     (mutex-unlock! *update-mutex*))))
 		       1))))
 
-(iup:main-loop)
+(let ((th1 (make-thread (lambda ()
+			  (thread-sleep! 1)
+			  (set! *please-update-buttons* #t)
+			  (dashboard:run-update 1)) "update buttons once"))
+			  ;; need to wait for first *update-is-running* #t
+			  ;; (let loop ()
+			  ;;   (mutex-lock! *update-mutex*)
+			  ;;   (if *update-is-running*
+			  ;;       (begin
+			  ;;         (set! *please-update-buttons* #t)
+			  ;;         (mark-for-update)
+			  ;;         (print "Did redraw trigger")) "First update after startup")
+			  ;;   (mutex-unlock! *update-mutex*)
+			  ;;   (thread-sleep! 1)
+			  ;;   (if (not *please-update-buttons*)
+			  ;;       (loop))))))
+      (th2 (make-thread iup:main-loop "Main loop")))
+  (thread-start! th1)
+  (thread-start! th2)
+  (thread-join! th2))
+
+;; (iup:main-loop)

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -11,10 +11,11 @@
 [include config/mt_include_1.config]
 
 [dashboard]
 pre-command  xterm -geometry 180x20 -e "
 post-command |& tee results.log ;echo Press any key to continue;bash -c 'read -n 1 -s'" &
+testsort -event_time
 
 [misc]
 home #{shell readlink -f $MT_RUN_AREA_HOME}
 parent #{shell readlink -f $MT_RUN_AREA_HOME/..}