anchor.diff:                     frame-manager subitems
                      options))))))
   
  +#+NIL
   (defmethod menu-choose-from-drawer
       (menu presentation-type drawer
        &key x-position y-position cache unique-id id-test cache-value cache-test
  
positive.code:     (handler-case
          (with-input-context (presentation-type :override t)
                (object type event)
              (loop
                 (read-gesture :stream menu))
            (t (values object event)))
        (abort-gesture () (values nil)))))
  
negative.code:                            (let ((activep (menu-item-option item :active t)))
                               (with-presentation-type-decoded (name params options)
                                   presentation-type
                                 (let ((*allow-sensitive-inferiors* activep))                                 
                                   (with-text-style (stream (or (getf (menu-item-options item) :style)
                                                                '(:sans-serif nil nil)))
                                     (with-output-as-presentation                                     
                                         (stream
                                          item
                                          `((,name ,@params)
                                            :description ,(getf (menu-item-options item) :documentation)
                                            ,@options))
                                       (funcall item-printer item stream)))))))
                  :presentation-type nil
                  :x-spacing x-spacing
                  :y-spacing y-spacing
  