including mouse character in standard Mouse-Right menu

[Barry Margolin <barmar@THINK.COM>]

I've frequently heard people wish that the standard Mouse-Right menu
included the mouse accelerator that is associated with each menu item.
It turns out to be easy to add.  Here's how:

(advise-within (:internal dw::call-presentation-menu 0) dw::presentation-mouse-handler-context-documentation
	       :after mouse-in-menu nil 
  (let ((mouse (getf arglist :mouse-char)))
    (when mouse
      (setf (car values) (format nil "~'b~C~: ~A" mouse (car values))))))

This will show the mouse characters in bold to the left of the
description.

                                                barmar