Changeset 9752


Ignore:
Timestamp:
Jun 14, 2008, 12:18:57 AM (11 years ago)
Author:
mikel
Message:

fixed with-modal-progress-dialog to return the proper value

File:
1 edited

Legend:

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

    r9751 r9752  
    365365                (let ((modal-session (#/beginModalSessionForWindow: ccl::*nsapp* window)))
    366366                  (#/startAnimation: progress-bar +null-ptr+)
    367                   ,@body
    368                   (#/stopAnimation: progress-bar +null-ptr+)
    369                   (#/orderOut: window +null-ptr+)
    370                   (#/endModalSession: ccl::*nsapp* modal-session)))
    371               (alert-window :title "Failure"
    372                             :message "Unable to load the modal progress window"))
     367                  (let ((result (progn ,@body)))
     368                    (#/stopAnimation: progress-bar +null-ptr+)
     369                    (#/orderOut: window +null-ptr+)
     370                    (#/endModalSession: ccl::*nsapp* modal-session)
     371                    result)))
     372              (progn
     373                (alert-window :title "Failure"
     374                            :message "Unable to load the modal progress window")
     375                nil))
    373376       (#/release nstitle)
    374377       (#/release nsmessage))))
Note: See TracChangeset for help on using the changeset viewer.