anchor.diff:                                       ;;:color-pair (list :black #xcccccc)
                                        :name "menu" :title nil :border nil :enable-fkeys t :visible nil)))
         ;; add the menus and submenus to a window stack
  -      ;; TODO: what to do when the user adds his own windows to the stack?
  -      ;; then menu windows have to still be on top, so they have to be stacked last or raised.
         ;; scr has to be stacked too so we can make the menus disappear.
         (setf (.stacked scr) t
               (.stacked menu) t
  
positive.code:       
        (refresh scr)
        (loop named menu-case
           do
             (let ((result (select menu)))
               (unless result (return-from menu-case))
               (format scr "You chose ~A~%" result)
               (refresh scr)))
        (close menu))))
  
  (defun t19g ()
  
negative.code:   "Edit a single input field, not part of a form."
    (with-screen (scr :input-echoing nil :cursor-visibility t :enable-colors t :enable-fkeys t :input-blocking t)
      (let ((*standard-output* scr)
            (field (make-instance 'field :position (list 3 20) :width 10 :window scr)))
  
        ;; style = (fg bg selected-fg selected-bg)
        (setf (.style field)
  