anchor.diff:      (unwind-protect
            (progn
              (clear scr)
  -
              (setf (background scr) (make-instance 'complex-char :color-pair '(:black :white)))
              (box scr)
              (move scr 1 1)
              (princ 0 scr)
  -
              (refresh scr)
   
              (let ((w1 (make-instance 'window :height 10 :width 30 :position '(3 5)))
                    (w2 (make-instance 'window :height 10 :width 30 :position '(6 10)))
                    (w3 (make-instance 'window :dimensions '(10 30) :position '(9 15))))
  -
                (setf (background w1) (make-instance 'complex-char :color-pair '(:white :black)))
                (setf (background w2) (make-instance 'complex-char :color-pair '(:black :white)))
                (setf (background w3) (make-instance 'complex-char :color-pair '(:white :black)))
   
                (mapc #'box (list w1 w2 w3))
   
  -             (move w1 1 1)
  -             (princ 1 w1)
  -             (move w2 1 1)
  -             (princ 2 w2)
  -             (move w3 1 1)
  -             (princ 3 w3)
  +             (move w1 1 1) (princ 1 w1)
  +             (move w2 1 1) (princ 2 w2)
  +             (move w3 1 1) (princ 3 w3)
   
                (mapc #'refresh (list w1 w2 w3))
                (get-char w1)
   
  -             ;; todo: before we can refresh w2 to raise it, we have to "touch" it.
  +             ;; before we can refresh w2 to raise it, we have to "touch" it.
                ;; if we dont touch it, only the changed parts of it will be redrawn.
                (touch w2)
                (refresh w2)
  -
                (get-char w1)
   
                ;; move the whole window 3. note that this doesnt refresh the windows below,
  
positive.code:   "Use a layout instead of positioning manually."
    (with-screen (scr :input-echoing nil :cursor-visible t :enable-colors t :use-terminal-colors t :enable-function-keys t :input-blocking t)
      (let* ((fields (mapcar (lambda (name title)
                               (make-instance 'field :name name :title title :width 15))
                             (list :f1 :f2 :f3)
                             (list "Forename" "Surname" "Nickname")))
             (labels- (mapcar (lambda (name title)
                                (make-instance 'label :name name :title title :width 18 :height nil))
                              (list :l1 :l2 :l3)
                              (list "test"
                                    (format nil "Hello there ~%Dear John")
                                    (wrap-string "Hello there, dear john, prescious bodily fluids" 18))))
             (btns (mapcar (lambda (name title)
                             (make-instance 'button :name name :title title))
                           (list :b1 :b2 :b2)
                           (list "Accept" "Cancel" "Reset")))
             (form (make-instance 'form :window scr :style *t35-style*
  
negative.code: (defun t31b ()
    "Test color pair completion for fgcolor and bgcolor window properties."
    (with-screen (scr :input-echoing nil :input-blocking t :cursor-visible nil :enable-colors t)
      (format scr "default colors (white on black or custom terminal defaults)~%") (refresh scr) (get-char scr)
  
      (setf (fgcolor scr) :yellow)
      (format scr "fgcolor yellow~%") (refresh scr) (get-char scr)
  