anchor.diff:                                                          :selected-background (:bgcolor :blue))
                                                    button (:foreground (:attributes (:reverse))
                                                            :selected-foreground (:bgcolor :blue))))))
  +      (setf (background scr) (make-instance 'complex-char :simple-char #\space :color-pair '(:black :yellow)))
         (format scr "Edit returned:~%~S" (prog1 (multiple-value-list (edit form)) (clear scr)))
         (refresh scr)
         (wait-for-event scr))))
  
positive.code:   '(field (:foreground (:fgcolor :yellow :bgcolor :red)
             :background (:attributes (:reverse))
             :selected-background (:bgcolor :blue))
      label (:foreground (:fgcolor :white :bgcolor :blue)
             :background (:fgcolor :blue :bgcolor :white))
      button (:foreground (:attributes (:reverse))
              :selected-foreground (:bgcolor :blue))))
  
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)
  