Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -40,10 +40,16 @@
 (define (config:assoc-safe-add alist key val #!key (metadata #f))
   (let ((newalist (filter (lambda (x)(not (equal? key (car x)))) alist)))
     (append newalist (list (if metadata
 			       (list key val metadata)
 			       (list key val))))))
+
+
+(define (configf:set-section-var cfgdat section var value)
+  (let ((sect (hash-table-ref/default cfgdat section '())))
+    (hash-table-set! cfgdat section (config:assoc-safe-add sect var value))))
+
 
 (define (config:eval-string-in-environment str)
   (handle-exceptions
    exn
    (begin
@@ -596,5 +602,7 @@
 		     (fname (if (> (length dat-pair) 2)(caddr dat-pair) #f)))
 		(if fname (print "# " var "=>" fname))
 		(print var " " val)))
 	    section-dat))) ;;       (print "section-dat: " section-dat))
    (hash-table->alist data)))
+
+

Index: multi-dboard.scm
==================================================================
--- multi-dboard.scm
+++ multi-dboard.scm
@@ -163,10 +163,11 @@
   areas              ;; hash of areaname -> area-rec
   current-window-id  ;; 
   current-tab-id     ;; 
   update-needed      ;; flag to indicate that the tab pointed to by current tab id needs refreshing immediately
   tabs               ;; hash of tab-id -> areaname (??) should be of type "tab"
+  groupn             ;; 
   )
 
 ;; all the components of an area display, all fits into a tab but
 ;; parts may be swapped in/out as needed
 ;;
@@ -517,10 +518,48 @@
 	
   
 ;;======================================================================
 ;; D A S H B O A R D
 ;;======================================================================
+
+;; The main menu
+(define (dcommon:main-menu data)
+  (iup:menu ;; a menu is a special attribute to a dialog (think Gnome putting the menu at screen top)
+   (iup:menu-item "Files" (iup:menu   ;; Note that you can use either #:action or action: for options
+			   (iup:menu-item "Open"  action: (lambda (obj)
+							    (let* ((area-name (iup:textbox #:expand "HORIZONTAL"))
+								   (fd        (iup:file-dialog #:dialogtype "DIR"))
+								   (top       (iup:show fd #:modal? "YES")))
+							      (iup:attribute-set! source-tb "VALUE"
+										  (iup:attribute fd "VALUE"))
+                                                              (iup:destroy! fd))))
+                           (iup:menu-item "Open area"  action: (lambda (obj)
+                                                            (let* ((area-name (iup:textbox #:expand "HORIZONTAL"))
+                                                                   (fd        (iup:file-dialog #:dialogtype "DIR"))
+                                                                   (top       (iup:show fd #:modal? "YES"))
+                                                                   ;;(source-tb (iup:textbox #:expand "HORIZONTAL"))
+                                                                   (cfgdat    (data-cfgdat data))
+                                                                   (fname     (conc (getenv "HOME") "/.megatest/" (data-groupn data) ".dat"))
+                                                                   )
+                                                              ;;(iup:attribute-set! source-tb "VALUE"
+                                                              ;;                    (iup:attribute fd "VALUE"))
+                                                               (configf:set-section-var cfgdat "lvqa" "path" (iup:attribute fd "VALUE"))
+                                                               (configf:write-alist cfgdat fname)
+							      (iup:destroy! fd))))		      
+                           (iup:menu-item "Save"  #:action (lambda (obj)(print "File->save " obj)))
+                           (iup:menu-item "Exit"  #:action (lambda (obj)(exit)))))
+   (iup:menu-item "Tools" (iup:menu
+			   (iup:menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
+			   ;; (iup:menu-item "Show dialog"     #:action (lambda (obj)
+			   ;;  					   (show message-window
+			   ;;  					     #:modal? #t
+			   ;;  					     ;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
+			   ;;  					     ;; #:x 'mouse
+			   ;;  					     ;; #:y 'mouse
+			   ;;  )					     
+			   ))))
+
 
 (define (dashboard:area-panel aname data window-id)
   (let* ((apath      (configf:lookup (data-cfgdat data) aname "path")) ;;  (hash-table-ref (dboard:data-cfgdat data) area-name))
 	 ;;          (hash-table-ref (dboard:data-cfgdat data) aname))
 	 (area-dat   (dashboard:init-area data aname apath))
@@ -554,11 +593,11 @@
 ;; Main Panel
 ;;
 (define (dashboard:main-panel data window-id)
   (iup:dialog
    #:title "Megatest Control Panel"
-;;   #:menu (dcommon:main-menu data)
+   #:menu (dcommon:main-menu data)
    #:shrink "YES"
    (iup:vbox
     (let* ((area-names  (hash-table-keys (data-cfgdat data)))
 	   (area-panels (map (lambda (aname)
 			       (dashboard:area-panel aname data window-id))
@@ -771,10 +810,11 @@
 		     (make-hash-table) ;; areaname -> area-rec
 		     0                 ;; current window id
 		     0                 ;; current tab id
 		     #f                ;; redraw needed for current tab id
 		     (make-hash-table) ;; tab-id -> areaname
+                     groupn
 		     )))
     (hash-table-set! *windows* window-id data)
     (iup:show (dashboard:main-panel data window-id))
     (iup:main-loop)))