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)