[mcclim-cvs] CVS mcclim

[thenriksen]

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)))))