[mcclim-cvs] CVS mcclim

[thenriksen]

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