Changeset 663

Timestamp:

Mar 17, 2004, 4:18:18 PM (21 years ago)

Author:

Gary Byers

Message:

Window-close on listener thread exit: don't wait around (deadlocks during QUIT.)

File:

• trunk/ccl/examples/cocoa-listener.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa-listener.lisp

@@ -48 +48 @@
                  :perform-selector-on-main-thread (@selector "close")
                  :with-object (%null-ptr)
-                 :wait-until-done t))))
+                 :wait-until-done nil))))
    #'(lambda ()
        (setq *listener-autorelease-pool* (create-autorelease-pool))
@@ -126 +126 @@
 
 
-
-
-
-
-
-
-
-(define-objc-method ((:id :delete-forward tv)  lisp-listener-window-controller)
-  (with-slots (outpos filehandle) self
-    (slet ((selection (send tv 'selected-range)))
-      (let* ((textbuf (send tv 'text-storage))
-             (length (send textbuf 'length)))
-        (if (and (eql length (pref selection :<NSR>ange.location))
-                 (or (eql outpos length)
-                     (and (> length 1)
-                          (= (send textbuf :character-at-index  (1- length))
-                             (char-code #\NewLine)))))
-          (%stack-block ((buf 1))
-            (setf (%get-byte buf 0) (logand (char-code #\d) #x1f))
-            (send filehandle
-                  :write-data (send (@class ns-data)
-                                    :data-with-bytes buf
-                                    :length 1))
-            (send filehandle 'synchronize-file)
-                                        ;(#_NSLog #@"wrote ctrl-d packet")
-            )
-          (send tv :delete-forward self))
-        self))))
-
-
-
-
-
 (define-objc-method ((:void dealloc) lisp-listener-window-controller)
   (send (send (@class ns-notification-center) 'default-center)