anchor.diff:  (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~%") (refresh scr) (get-char scr)
  +    (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)
  
positive.code:   "Display a menu associated with a separate window. Display submenus ranger-style to the right of the parent."
    (with-screen (scr :input-echoing nil :input-blocking t :cursor-visible nil :enable-colors t)
      (let* ((items3 '("Choice 0" "Choice 11" :choice22 "Choice 3333" "Choice 44444" "Choice 555555" "Choice 6666666" "Choice 7" "Choice 88"))
             (menu3 (make-instance 'menu :items items3 :name :sm3 :title "sub-menu 3" :max-item-length 20 :position (list 7 50) :menu-type :checklist))
             (items2 (list "Item 0" menu3 "Item 1" "Item 2" "Item 3" "Item 4" "Item 5" "Item 6" "Item 7" "Item 8"))
             (menu2 (make-instance 'menu :items items2 :name :sm2 :title "sub-menu 2" :max-item-length 20 :position (list 6 30)))
             (items1 (list "Item 00" menu2 "Item 01" "Item 02" "Item 03" "Item 04" "Item 05" "Item 06" "Item 07" "Item 08" "Item 09" "Item 10"))
             (menu1 (make-instance 'menu :items items1 :name :t19b2 :title "t19b2" :max-item-length 20 :position (list 5 10))))
  
        ;; associate the same window with all three menus.
        (setf (window menu1) scr
  
negative.code:   "Display submenus in-place, on top of the parent menu."
    (with-screen (scr :input-echoing nil :input-blocking t :cursor-visible nil :enable-colors t)
      (let* ((items3 '("Choice 0" "Choice 11" :choice22 "Choice 3333" "Choice 44444" "Choice 555555" "Choice 6666666" "Choice 7" "Choice 88" "Choice 999" ))
             (menu3 (make-instance 'menu :items items3 :name :sm1 :title "sub-menu 1" :max-item-length 20 :position (list 5 10) :menu-type :checklist
                                         :grid-dimensions '(5 2) :table t :padding '(0 1)))
             (items2 (list "Item 0" menu3 "Item 1" "Item 2" "Item 3" "Item 4" "Item 5" "Item 6" "Item 7" "Item 8"))
             (menu2 (make-instance 'menu :items items2 :name :sm2 :title "sub-menu 2" :max-item-length 20 :position (list 5 10) :table t :padding '(0 1)))
             (items1 (list "Item 00" menu2 "Item 01" "Item 02" "Item 03" "Item 04" "Item 05" "Item 06" "Item 07" "Item 08" "Item 09" "Item 10"))
             (menu1 (make-instance 'menu :items items1 :name :t19b2 :title "t19b2" :max-item-length 20 :position (list 5 10) :grid-dimensions '(4 3)
                                         :table t :padding '(0 1))))
  
        ;; associate the same underlying window with all three menus.
        (setf (window menu1) scr
  