Changeset 15228

Timestamp:

Mar 1, 2012, 9:32:42 AM (13 years ago)

Author:

gz

Message:

Report errors (usually missing file) from execute-in-file-view by a dialog

File:

• trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-editor.lisp

@@ -3510 +3510 @@
   (execute-in-gui #'(lambda ()
                       (assume-cocoa-thread)
-                      (let ((view (find-or-make-hemlock-view pathname)))
-                        (hi::handle-hemlock-event view thunk)))))
+                      (handler-case
+                          (let ((view (find-or-make-hemlock-view pathname)))
+                            (hi::handle-hemlock-event view thunk))
+                        (error (c)
+                          (alert-window :title "Error in Hemlock command processing"
+                                        :message (or (ignore-errors (princ-to-string c))
+                                                     "#<error printing error message>")
+                                        :default-button "Ok"))))))
 
 (defun hemlock-ext:open-sequence-dialog (&key title sequence action (printer #'prin1))