@@ -11,10 +11,11 @@
 
 (use format)
 (require-library iup)
 (import (prefix iup iup:))
 (use canvas-draw)
+(use regex)
 
 (declare (unit dcommon))
 
 (declare (uses megatest-version))
 (declare (uses gutils))
@@ -47,10 +48,15 @@
 (define (dboard:data-get-path-test-ids vec)    (vector-ref  vec 7))
 (define (dboard:data-get-updaters      vec)    (vector-ref  vec 8))
 (define (dboard:data-get-path-run-ids  vec)    (vector-ref  vec 9))
 (define (dboard:data-get-curr-run-id   vec)    (vector-ref  vec 10))
 (define (dboard:data-get-runs-tree     vec)    (vector-ref  vec 11))
+;; For test-patts convert #f to ""
+(define (dboard:data-get-test-patts    vec)    
+  (let ((val (vector-ref  vec 12)))(if val val "")))
+(define (dboard:data-get-states        vec)    (vector-ref vec 12))
+(define (dboard:data-get-statuses      vec)    (vector-ref vec 13))
 
 (define (dboard:data-set-runs!          vec val)(vector-set! vec 0 val))
 (define (dboard:data-set-tests!         vec val)(vector-set! vec 1 val))
 (define (dboard:data-set-runs-matrix!   vec val)(vector-set! vec 2 val))
 (define (dboard:data-set-tests-tree!    vec val)(vector-set! vec 3 val))
@@ -59,11 +65,18 @@
 ;; (define (dboard:data-set-test-details!  vec val)(vector-set! vec 6 val))
 (define (dboard:data-set-path-test-ids! vec val)(vector-set! vec 7 val))
 (define (dboard:data-set-updaters!      vec val)(vector-set! vec 8 val))
 (define (dboard:data-set-path-run-ids!  vec val)(vector-set! vec 9 val))
 (define (dboard:data-set-curr-run-id!   vec val)(vector-set! vec 10 val))
-(define (dboard:data-set-runs-tree!     vec val)(vector-set! vec 12 val))
+(define (dboard:data-set-runs-tree!     vec val)(vector-set! vec 11 val))
+;; For test-patts convert "" to #f 
+(define (dboard:data-set-test-patts!    vec val)
+  (vector-set! vec 12 (if (equal? val "") #f val)))
+(define (dboard:data-set-states!        vec val)(vector-set! vec 12 val))
+(define (dboard:data-set-statuses!      vec val)(vector-set! vec 13 val))
+(define (dboard:data-set-logs-textbox!  vec val)(vector-set! vec 14 val))
+
 
 (dboard:data-set-run-keys! *data* (make-hash-table))
 
 ;; List of test ids being viewed in various panels
 (dboard:data-set-curr-test-ids! *data* (make-hash-table))
@@ -71,10 +84,23 @@
 ;; Look up test-ids by (key1 key2 ... testname [itempath])
 (dboard:data-set-path-test-ids! *data* (make-hash-table))
 
 ;; Look up run-ids by ??
 (dboard:data-set-path-run-ids! *data* (make-hash-table))
+
+;;======================================================================
+;; TARGET AND PATTERN MANIPULATIONS
+;;======================================================================
+
+;; Convert to and from list of lines (for a text box)
+;; "," => "\n"
+(define (dboard:test-patt->lines test-patt)
+  (string-substitute (regexp ",") "\n" test-patt))
+
+(define (dboard:lines->test-patt lines)
+  (string-substitute (regexp "\n") "," lines))
+
 
 ;;======================================================================
 ;; P R O C E S S   R U N S
 ;;======================================================================