[Openmcl-cvs-notifications] r9752 - /trunk/source/cocoa-ide/cocoa-utils.lisp

[mikel at clozure.com]

Author: mikel
Date: Fri Jun 13 20:18:57 2008
New Revision: 9752

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

Modified:
    trunk/source/cocoa-ide/cocoa-utils.lisp

Modified: trunk/source/cocoa-ide/cocoa-utils.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-utils.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-utils.lisp Fri Jun 13 20:18:57 2008
@@ -364,12 +364,15 @@
                 (#/makeKeyAndOrderFront: window +null-ptr+)
                 (let ((modal-session (#/beginModalSessionForWindow: ccl::*=
nsapp* window)))
                   (#/startAnimation: progress-bar +null-ptr+)
-                  , at body
-                  (#/stopAnimation: progress-bar +null-ptr+)
-                  (#/orderOut: window +null-ptr+)
-                  (#/endModalSession: ccl::*nsapp* modal-session)))
-              (alert-window :title "Failure"
-                            :message "Unable to load the modal progress wi=
ndow"))
+                  (let ((result (progn , at body)))
+                    (#/stopAnimation: progress-bar +null-ptr+)
+                    (#/orderOut: window +null-ptr+)
+                    (#/endModalSession: ccl::*nsapp* modal-session)
+                    result)))
+              (progn
+                (alert-window :title "Failure"
+                            :message "Unable to load the modal progress wi=
ndow")
+                nil))
        (#/release nstitle)
        (#/release nsmessage))))
 =