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

Diff of /mcclim/frames.lisp

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

revision 1.132 by thenriksen, Sun Feb 3 09:10:45 2008 UTC revision 1.133 by thenriksen, Tue Feb 5 08:53:09 2008 UTC
# Line 563  documentation produced by presentations. Line 563  documentation produced by presentations.
563    ;; frames command loop. Perhaps looking ath the process slot?    ;; frames command loop. Perhaps looking ath the process slot?
564    ;; --GB 2005-11-28    ;; --GB 2005-11-28
565    (cond ((eq *application-frame* frame)    (cond ((eq *application-frame* frame)
566           (apply (command-name command) (command-arguments command)))           (restart-case
567                 (apply (command-name command) (command-arguments command))
568               (try-again ()
569                :report (lambda (stream)
570                          (format stream "Try executing the command ~A again"
571                                  (command-name command)))
572                (execute-frame-command frame command))))
573          (t          (t
574           (let ((eq (sheet-event-queue (frame-top-level-sheet frame))))           (let ((eq (sheet-event-queue (frame-top-level-sheet frame))))
575             (event-queue-append eq (make-instance 'execute-command-event             (event-queue-append eq (make-instance 'execute-command-event

Legend:
Removed from v.1.132  
changed lines
  Added in v.1.133

  ViewVC Help
Powered by ViewVC 1.1.5