anchor.diff:                 (refresh-stack) ))
           ;; TODO: doesnt repaint the border, because the border already has attributes.
           ;; setting a background doesnt change existing attributes, only existing backgrounds.
  -        (#\b (setf (.color-pair menu) (list :white :black)))
  +        (#\b (setf (.color-pair menu) (list :red :black)))
           ;; "q" exits the function and all menus and submenus.
           (#\q (return-from event-case)))
         (close menu)
  
positive.code: (defun t19d ()
    "Use the arrow keys to pick a value from an 2D array menu, given as a layout parameter."
    (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
      (let* ((items '("Item 0" "Item 1" "Item 2" "Item 3" "Item 4" "Item 5"))
             (menu (make-instance 'menu-window
                                  :items items :position (list 0 20) :layout (list 2 3) :cyclic-selection nil
                                  :title "t19d" :border t :enable-fkeys t)))
        (event-case (scr event)
          ;; "a" draws the menu and enters a new menu-only event loop
          (#\a (let ((result (select-item menu)))
  
negative.code:                                      ;;:color-pair (list :black #x666666)
                                       :title "submenu2" :border t :enable-fkeys t :visible nil))
  
             ;; then add that menu-item as an item to the next menu, and so on.
             (sub-menu1 (make-instance 'menu-window
                                       :items (cons sub-menu2 choices) ;; first item is a submenu
                                       :position (list 1 41) :scrolled-layout (list 6 1)
                                       ;;:color-pair (list :black #x999999)
                                       :title "submenu1" :border t :enable-fkeys t :visible nil))
  
             ;; finally, create the main menu containing sub-menu1 as an item
             (menu      (make-instance 'menu-window
                                       :items (cons sub-menu1 choices)  ;; first item is a submenu
                                       :position (list 0 25) :scrolled-layout (list 6 1)
                                       ;;:color-pair (list :black #xcccccc)
                                       :title "menu" :border t :enable-fkeys t :visible nil)))
  