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

Modified Files: NEWS presentations.lisp Log Message: Fixed erroneous call to MENU-CHOOSE.

Mentioned MENU-CHOOSE change in NEWS.

--- /project/mcclim/cvsroot/mcclim/NEWS 2008/01/29 19:13:07 1.33 +++ /project/mcclim/cvsroot/mcclim/NEWS 2008/01/31 10:47:07 1.34 @@ -21,6 +21,8 @@ ** Specification compliance: The :inherit-menu keyword argument to DEFINE-COMMAND-TABLE and MAKE-COMMAND-TABLE is now implemented with CLIM 2.2 semantics. The :keystrokes value is not handled yet. +** Specification compliance: :PRINTER functions for MENU-CHOOSE are + now called with the menu item, not the display object.

* Changes in mcclim-0.9.5 relative to 0.9.4: ** Installation: the systems clim-listener, clim-examples, --- /project/mcclim/cvsroot/mcclim/presentations.lisp 2007/11/19 22:04:29 1.82 +++ /project/mcclim/cvsroot/mcclim/presentations.lisp 2008/01/31 10:47:08 1.83 @@ -1917,12 +1917,13 @@ :label label :associated-window window :printer #'(lambda (item stream) - (document-presentation-translator - (presentation-translator-menu-item-translator item) - (presentation-translator-menu-item-presentation item) - (presentation-translator-menu-item-context item) - frame nil window x y - :stream stream)) + (let ((object (first item))) + (document-presentation-translator + (presentation-translator-menu-item-translator object) + (presentation-translator-menu-item-presentation object) + (presentation-translator-menu-item-context object) + frame nil window x y + :stream stream))) :label label :pointer-documentation *pointer-documentation-output*) (declare (ignore object))