/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.91 by mikemac, Mon Feb 9 01:20:15 2004 UTC revision 1.92 by moore, Mon Feb 23 10:48:28 2004 UTC
# Line 494  frame, if any"))) Line 494  frame, if any")))
494    
495  (defmethod read-frame-command :around ((frame application-frame)  (defmethod read-frame-command :around ((frame application-frame)
496                                         &key (stream *standard-input*))                                         &key (stream *standard-input*))
   (declare (ignore stream))  
497    (with-input-context ('menu-item)    (with-input-context ('menu-item)
498      (object)        (object)
499      (call-next-method)        (call-next-method)
500      (menu-item      (menu-item
501       (let ((command (command-menu-item-value object)))       (let ((command (command-menu-item-value object)))
502         (if (listp command)         (unless (listp command)
503             command           (setq command (list command)))
504             (list command))))))         (if (and (typep stream 'interactor-pane)
505                    (member *unsupplied-argument-marker* command :test #'eq))
506               (command-line-read-remaining-arguments-for-partial-command
507                (frame-command-table frame) stream command 0)
508               command)))))
509    
510  (defmethod read-frame-command ((frame application-frame)  (defmethod read-frame-command ((frame application-frame)
511                                 &key (stream *standard-input*))                                 &key (stream *standard-input*))

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

  ViewVC Help
Powered by ViewVC 1.1.5