Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv7193
Modified Files: frames.lisp Log Message: Read arguments for partial commands from partial menu entries even when the input stream isn't an interactor pane. Use *partial-command-parser* to do that rather than hardwiring command-line-read-remaining-arguments-for-partial-command.
--- /project/mcclim/cvsroot/mcclim/frames.lisp 2009/01/28 19:27:22 1.135 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2009/02/28 16:49:40 1.136 @@ -533,10 +533,8 @@ (table (frame-command-table frame))) (unless (listp command) (setq command (partial-command-from-name command table))) - (if (and (typep stream 'interactor-pane) - (partial-command-p command)) - (command-line-read-remaining-arguments-for-partial-command - table stream command 0) + (if (partial-command-p command) + (funcall *partial-command-parser* table stream command 0) command)))))
(defmethod read-frame-command ((frame application-frame)