@@ -21,10 +21,11 @@
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69)
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit dashboard-main))
+(declare (uses dashboard-guimonitor))
 (declare (uses common))
 (declare (uses keys))
 (declare (uses db))
 (declare (uses tasks))
 
@@ -53,11 +54,11 @@
 		       ))))
 
 
 (define (mtest)
   (let* ((curr-row-num     0)
-	 (rawconfig        (read-config (conc *toppath* "/megatest.config") #f 'return-string))
+	 (rawconfig        (read-config (conc *toppath* "/megatest.config") #f 'return-string allow-expand: #f))
 	 (keys-matrix      (iup:matrix
 		            #:expand "VERTICAL"
 		            ;; #:scrollbar "YES"
 		            #:numcol 1
 		            #:numlin 20
@@ -206,20 +207,21 @@
 
 (define (runs)
   (iup:hbox
    (iup:frame #:title "Runs browser")))
 
-(define (main-panel)
+(define (main-panel db)
   (iup:dialog
    #:title "Menu Test"
    #:menu (main-menu)
    (let ((tabtop (iup:tabs 
-		  (runs)
+		  (gui-monitor db) ;; (control-panel db tdb)
+		  ;; (runs)
 		  (mtest) 
 		  (rconfig)
 		  (tests)
 		  )))
      (iup:attribute-set! tabtop "TABTITLE0" "Runs")
      (iup:attribute-set! tabtop "TABTITLE3" "Tests")
      (iup:attribute-set! tabtop "TABTITLE1" "megatest.config") 
      (iup:attribute-set! tabtop "TABTITLE2" "runconfigs.config")
      tabtop)))