Changeset 15228


Ignore:
Timestamp:
Mar 1, 2012, 5:32:42 PM (7 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r14737 r15228  
    35103510  (execute-in-gui #'(lambda ()
    35113511                      (assume-cocoa-thread)
    3512                       (let ((view (find-or-make-hemlock-view pathname)))
    3513                         (hi::handle-hemlock-event view thunk)))))
     3512                      (handler-case
     3513                          (let ((view (find-or-make-hemlock-view pathname)))
     3514                            (hi::handle-hemlock-event view thunk))
     3515                        (error (c)
     3516                          (alert-window :title "Error in Hemlock command processing"
     3517                                        :message (or (ignore-errors (princ-to-string c))
     3518                                                     "#<error printing error message>")
     3519                                        :default-button "Ok"))))))
    35143520
    35153521(defun hemlock-ext:open-sequence-dialog (&key title sequence action (printer #'prin1))
Note: See TracChangeset for help on using the changeset viewer.