[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv26133

Modified Files:
	frames.lisp 
Log Message:
Added restart for re-executing commands.


--- /project/mcclim/cvsroot/mcclim/frames.lisp	2008/02/03 09:10:45	1.132
+++ /project/mcclim/cvsroot/mcclim/frames.lisp	2008/02/05 08:53:09	1.133
@@ -563,7 +563,13 @@
   ;; frames command loop. Perhaps looking ath the process slot?
   ;; --GB 2005-11-28
   (cond ((eq *application-frame* frame)
-         (apply (command-name command) (command-arguments command)))
+         (restart-case
+             (apply (command-name command) (command-arguments command))
+           (try-again ()
+            :report (lambda (stream)
+                      (format stream "Try executing the command ~A again"
+                              (command-name command)))
+            (execute-frame-command frame command))))
         (t
          (let ((eq (sheet-event-queue (frame-top-level-sheet frame))))
            (event-queue-append eq (make-instance 'execute-command-event