@@ -474,11 +474,11 @@
 	       (lbs     '()))
       (let* ((lb (let ((lb (list-ref key-listboxes indx)))
 		   (if lb
 		       lb
 		       (iup:listbox 
-			;; #:size "x10" 
+			#:size "45x50" 
 			#:fontsize "10"
 			#:expand "YES" ;; "VERTICAL"
 			;; #:dropdown "YES"
 			#:editbox "YES"
 			#:action (lambda (obj a b c)
@@ -749,10 +749,11 @@
 					      (dboard:lines->test-patt b))
 					     (dashboard:update-run-command))
 				  #:value (dboard:test-patt->lines
 					   (dboard:data-get-test-patts *data*))
 				  #:expand "YES"
+				  #:size "x50"
 				  #:multiline "YES")))
 	     (set! test-patterns-textbox tb)
 	     tb))
 	  (iup:frame
 	   #:title "Target"