Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1198,11 +1198,12 @@
 					    (selected-tests (hash-table-ref tests-draw-state 'selected-tests))
 					    (scalef         (hash-table-ref tests-draw-state 'scalef))
 					    (sizey          (hash-table-ref tests-draw-state 'sizey))
 					    (xoffset        (dcommon:get-xoffset tests-draw-state #f #f))
 					    (yoffset        (dcommon:get-yoffset tests-draw-state #f #f))
-					    (new-y          (- sizey y)))
+					    (new-y          (- sizey y))
+					    (test-patterns-textbox (dboard:tabdat-test-patterns-textbox tabdat)))
 				       ;; (print "xoffset=" xoffset ", yoffset=" yoffset)
 				       ;; (print "\tx\ty\tllx\tlly\turx\tury")
 				       (for-each (lambda (test-name)
 						   (let* ((rec-coords (hash-table-ref tests-info test-name))
 							  (llx        (dcommon:x->canvas (list-ref rec-coords 0) scalef xoffset))

Index: utils/viewscreen
==================================================================
--- utils/viewscreen
+++ utils/viewscreen
@@ -8,10 +8,12 @@
 if [[ $(screen -list | egrep 'Attached|Detached'|awk '{print $1}') == "" ]];then
     # echo "No screen found for displaying to. Run \"screen\" in an xterm"
     # exit 1
     xterm -e screen &
     sleep 1
+    screen -X hardstatus off
+    screen -X hardstatus alwayslastline
+    screen -X hardstatus string '%{= kG}[ %{G}%H %{g}][%= %{= kw}%?%-Lw%?%{r}(%{W}%n*%f%t%?(%u)%?%{r})%{w}%?%+Lw%?%?%= %{g}][%{B} %m-%d %{W} %c %{g}]'
 fi
 
 cmd="cd $PWD;$*"
-
 screen -X screen bash -c "$cmd;echo \"Press any key to continue, ctrl-a <space> to see other windows\";bash -c 'read -n 1 -s'"