@@ -416,11 +416,13 @@
 			    #:numcol 1
 			    #:numlin 4
 			    #:numcol-visible 1
 			    #:numlin-visible 4
 			    #:click-cb (lambda (obj lin col status)
-					 (print "obj: " obj " lin: " lin " col: " col " status: " status))))
+					 #f
+					 ;;(print "obj: " obj " lin: " lin " col: " col " status: " status)
+					 )))
 	 (test-info-matrix (iup:matrix
 		            #:expand "YES"
 		            #:numcol 1
 		            #:numlin 7
 		            #:numcol-visible 1
@@ -555,11 +557,12 @@
 		      (let* ((run-path (tree:node->path obj id))
 			     (test-id  (tree-path->test-id (cdr run-path))))
 			;; (if test-id
 			;;     (hash-table-set! (dboard:data-curr-test-ids *data*)
 			;; 		     window-id test-id))
-			(print "path: " (tree:node->path obj id) " test-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-tests-tree-set! *data* tb)
      tb)
@@ -663,11 +666,13 @@
 			   #:numcol 100
 			   #:numlin 100
 			   #:numcol-visible 7
 			   #:numlin-visible 7
 			   #:click-cb (lambda (obj lin col status)
-					(print "obj: " obj " lin: " lin " col: " col " status: " status)))))
+					#f
+					;; (print "obj: " obj " lin: " lin " col: " col " status: " status)
+					))))
 
     (iup:attribute-set! runs-matrix "RESIZEMATRIX" "YES")
     (iup:attribute-set! runs-matrix "WIDTH0" "100")
 
     ;; (dboard:data-runs-matrix-set! *data* runs-matrix)