[mcclim-cvs] CVS mcclim

[thenriksen]

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))