Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv19503
Modified Files: frames.lisp Log Message: Patch by Robert Goldman, make menu commands with unsupplied arguments work better.
--- /project/mcclim/cvsroot/mcclim/frames.lisp 2007/02/07 12:44:16 1.125 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2007/03/04 14:59:37 1.126 @@ -505,9 +505,9 @@ (menu-item (let ((command (command-menu-item-value object))) (unless (listp command) - (setq command (list command))) + (setq command (partial-command-from-name command))) (if (and (typep stream 'interactor-pane) - (member *unsupplied-argument-marker* command :test #'eq)) + (partial-command-p command)) (command-line-read-remaining-arguments-for-partial-command (frame-command-table frame) stream command 0) command)))))