[mcclim-cvs] CVS mcclim

[crhodes]

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)