Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv1354

Modified Files: menu-choose.lisp Log Message: The :PRINTER function to MENU-CHOOSE should be called with the menu item, not the menu item display.

--- /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2007/02/05 03:00:54 1.20 +++ /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2008/01/30 23:22:45 1.21 @@ -226,9 +226,7 @@ (if default-item-p default-item (first items)) - :item-printer (if printer - (lambda (item stream) - (funcall printer (menu-item-display item) stream)) + :item-printer (or printer #'print-menu-item) :max-width max-width :max-height max-height