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

[mikel at clozure.com]

Author: mikel
Date: Fri Jun 13 19:21:31 2008
New Revision: 9750

Log:
with-modal-progress-dialog working now

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 19:21:31 2008
@@ -359,6 +359,7 @@
               (progn
                 (#/setTitle: window nstitle)
                 (#/setIndeterminate: progress-bar #$YES)
+                (#/setUsesThreadedAnimation: progress-bar #$YES)
                 (#/setStringValue: message-field nsmessage)
                 (#/makeKeyAndOrderFront: window +null-ptr+)
                 (let ((modal-session (#/beginModalSessionForWindow: ccl::*=
nsapp* window)))