anchor.diff:          (#\q   (return-from event-case))
           (otherwise nil)))
   
  -      (close p))))
  +      (close p)
  +      (close sp))))
  
positive.code:     (get-char scr)))
  
  (defun t25 ()
    "Test initialisation and refreshing of pads."
    (with-screen (scr :input-blocking t :cursor-visibility nil :enable-colors t)
      (let ((p (make-instance 'pad :height 100 :width 100)))
  
        ;; populate the pad with numbers.
        (loop for j from 0 to 99
  
negative.code:                  (move p j i)
                   (format p "~D" (mod (* i j) 10))))
  
        ;; populate the sub-pad with letters.
        (loop for j from 0 to 4
           do (loop for i from 0 to 9
                 do
                   (move sp j i)
                   (add-char sp #\X) ))
  
        ;; we have to modify the sub-window attributes first because apparently once
        ;; chars have attributes, they can not be changed by subsequent background changes.
        (setf (.background sp) (make-instance 'complex-char :color-pair '(:white :red))
              (.background p)  (make-instance 'complex-char :color-pair '(:green :white)))
  
        (let ((pad-min-y     2)
              (pad-min-x     2)
  