anchor.diff:                             (let ((activep (menu-item-option item :active t)))
                                (with-presentation-type-decoded (name params options)
                                    presentation-type
  -                               (let ((*allow-sensitive-inferiors* activep))
  -                                 (with-output-as-presentation
  -                                     (stream
  -                                      item
  -                                      `((,name ,@params)
  -                                        :description ,(getf (menu-item-options item) :documentation)
  -                                        ,@options))
  -                                   (funcall item-printer item stream))))))
  +                               (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
  
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:                    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
  