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

Diff of /mcclim/frames.lisp

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

revision 1.128 by ahefner, Tue Jan 1 00:27:34 2008 UTC revision 1.129 by thenriksen, Tue Jan 22 08:51:02 2008 UTC
# Line 521  documentation produced by presentations. Line 521  documentation produced by presentations.
521        (object)        (object)
522        (call-next-method)        (call-next-method)
523      (menu-item      (menu-item
524       (let ((command (command-menu-item-value object)))       (let ((command (command-menu-item-value object))
525               (table (frame-command-table frame)))
526         (unless (listp command)         (unless (listp command)
527           (setq command (partial-command-from-name command)))           (setq command (partial-command-from-name command table)))
528         (if (and (typep stream 'interactor-pane)         (if (and (typep stream 'interactor-pane)
529                  (partial-command-p command))                  (partial-command-p command))
530             (command-line-read-remaining-arguments-for-partial-command             (command-line-read-remaining-arguments-for-partial-command
531              (frame-command-table frame) stream command 0)              table stream command 0)
532             command)))))             command)))))
533    
534  (defmethod read-frame-command ((frame application-frame)  (defmethod read-frame-command ((frame application-frame)

Legend:
Removed from v.1.128  
changed lines
  Added in v.1.129

  ViewVC Help
Powered by ViewVC 1.1.5