@@ -389,18 +389,18 @@
 			    (area      (car tree-path))
 			    (areadat-path (cdr tree-path)))
 		       #f
 		       ;; (test-id  (tree-path->test-id (cdr run-path))))
 		       ;; (if test-id
-		       ;;    (hash-table-set! (dboard:data-get-curr-test-ids *data*)
+		       ;;    (hash-table-set! (dboard:data-curr-test-ids *data*)
 		       ;;		     window-id test-id))
 		       ;; (print "path: " (tree:node->path obj id) " test-id: " test-id))))))
 		       )))))
     ;; (iup:attribute-set! tb "VALUE" "0")
     ;; (iup:attribute-set! tb "NAME" "Runs")
     ;; (iup:attribute-set! tb "ADDEXPANDED" "NO")
-    ;; (dboard:data-set-tests-tree! *data* tb)
+    ;; (dboard:data-tests-tree-set! *data* tb)
     tb))
 
 ;;======================================================================
 ;; M A I N   M A T R I X
 ;;======================================================================
@@ -422,11 +422,11 @@
 			   #:click-cb (lambda (obj lin col status)
 					(print "obj: " obj " lin: " lin " col: " col " status: " status " value: " (iup:attribute obj "VALUE"))))))
     
     ;; (iup:attribute-set! view-matrix "RESIZEMATRIX" "YES")
     (iup:attribute-set! view-matrix "WIDTH0" "100")
-    ;; (dboard:data-set-runs-matrix! *data* runs-matrix)
+    ;; (dboard:data-runs-matrix-set! *data* runs-matrix)
     ;; (iup:hbox
     ;;  (iup:frame 
     ;;   #:title "Runs browser"
     ;;   (iup:vbox
     view-matrix))