[Openmcl-cvs-notifications] r9251 - /trunk/source/cocoa-ide/cocoa-editor.lisp

[gb at clozure.com]

Author: gb
Date: Thu Apr 24 04:49:17 2008
New Revision: 9251

Log:
In #/drawInsertionPointInRect:color:turnedOn:, just call-next-method
if not on the main thread.

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

Modified: trunk/source/cocoa-ide/cocoa-editor.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-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Thu Apr 24 04:49:17 2008
@@ -997,7 +997,8 @@
      (r :<NSR>ect)
      color
      (flag :<BOOL>))
-  (unless (#/editingInProgress (#/textStorage self))
+  (unless (or (not (eq ccl::*current-process* ccl::*initial-process*))
+              (#/editingInProgress (#/textStorage self)))
     (unless (eql #$NO (text-view-blink-enabled self))
       (let* ((layout (#/layoutManager self))
              (container (#/textContainer self))