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

Diff of /mcclim/frames.lisp

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

revision 1.125 by crhodes, Wed Feb 7 12:44:16 2007 UTC revision 1.126 by thenriksen, Sun Mar 4 14:59:37 2007 UTC
# Line 505  documentation produced by presentations. Line 505  documentation produced by presentations.
505      (menu-item      (menu-item
506       (let ((command (command-menu-item-value object)))       (let ((command (command-menu-item-value object)))
507         (unless (listp command)         (unless (listp command)
508           (setq command (list command)))           (setq command (partial-command-from-name command)))
509         (if (and (typep stream 'interactor-pane)         (if (and (typep stream 'interactor-pane)
510                  (member *unsupplied-argument-marker* command :test #'eq))                  (partial-command-p command))
511             (command-line-read-remaining-arguments-for-partial-command             (command-line-read-remaining-arguments-for-partial-command
512              (frame-command-table frame) stream command 0)              (frame-command-table frame) stream command 0)
513             command)))))             command)))))

Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126

  ViewVC Help
Powered by ViewVC 1.1.5