anchor.diff:                 (refresh scr)))
           (#\q (return-from event-case)))
         (close menu))))
  -    
  +
   (defun t19c2 ()
     "Test the menu-item class for submenus."
     (with-screen (scr :input-echoing nil :input-blocking t :cursor-visibility nil :enable-colors t)
  -    (let* ((choices '("Choice 0" "Choice 11" "Choice 222" "Choice 3333" "Choice 44444" "Choice 555555"
  +    (let* ((choices '("Choice 0" choice11 "Choice 222" "Choice 3333" "Choice 44444" "Choice 555555"
                         "Choice 6666666" "Choice 7" "Choice 88" "Choice 999"))
              ;; First, create a menu
              ;; TODO: how to determine the position of the sub-menu depending on the parent menu?
  
positive.code:                (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)))
          ;; "q" exits the function and all menus and submenus.
          (#\q (return-from event-case)))
        (close 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)))
  