[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	menu.lisp 
Log Message:
Made command menu panes less broken.


--- /project/mcclim/cvsroot/mcclim/menu.lisp	2008/01/29 19:13:07	1.39
+++ /project/mcclim/cvsroot/mcclim/menu.lisp	2008/04/15 21:15:22	1.40
@@ -461,9 +461,9 @@
                            (find-command-table (command-menu-item-value item))
                            stream args)))
                  ((eq (command-menu-item-type item) :command)
-                  (let ((name (command-name (command-menu-item-value item))))
-                    (when (command-line-name-for-command name command-table :errorp nil)
-                      (present name 'command-name :stream stream)))))))
+                  (let ((name (command-menu-item-name item)))
+                    (with-output-as-presentation (stream (command-menu-item-value item) 'command)
+                      (write-string name stream)))))))
      command-table)))
 
 (defmethod display-command-menu (frame (stream fundamental-output-stream)