[mcclim-cvs] CVS mcclim
thenriksen
thenriksen at common-lisp.net
Tue Feb 5 08:53:10 UTC 2008
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
More information about the Mcclim-cvs
mailing list