Changeset 773

Timestamp:

Apr 13, 2004, 12:17:47 PM (21 years ago)

Author:

Gary Byers

Message:

Key events are interned, so don't make them mutable.

File:

• trunk/ccl/hemlock/src/cocoa-hemlock.lisp (modified) (3 diffs)

trunk/ccl/hemlock/src/cocoa-hemlock.lisp

@@ -13 +13 @@
   (thunk nil))
 
+(defstruct (event-queue-node (:include ccl::dll-node))
+  event)
+
+(defun event-queue-insert (q node)
+  (ccl::locked-dll-header-enqueue node q)
+  (ccl::signal-semaphore (frame-event-queue-signal q)))
 
 (defun enqueue-key-event (q event)
-  (ccl::locked-dll-header-enqueue event q)
-  (ccl::signal-semaphore (frame-event-queue-signal q)))
+  (event-queue-insert q (make-event-queue-node :event event)))
 
 (defun dequeue-key-event (q)
@@ -29 +34 @@
 (defun unget-key-event (event q)
   (ccl::with-locked-dll-header (q)
-    (ccl::insert-dll-node-after event q))
+    (ccl::insert-dll-node-after (make-event-queue-node event) q))
   (ccl::signal-semaphore (frame-event-queue-signal q)))
 
@@ -74 +79 @@
 
 (defmacro abort-key-event-p (key-event)
-  `(member ,key-event editor-abort-key-events))
+  `(member (event-queue-node-event ,key-event) editor-abort-key-events))
 
 
 (defun get-key-event (q &optional ignore-pending-aborts)
   (do* ((e (dequeue-key-event q) (dequeue-key-event q)))
-       ((typep e 'hemlock-ext:key-event)
+       ((typep e 'event-queue-node)
         (unless ignore-pending-aborts
           (when (abort-key-event-p e)
             (beep)
             (throw 'editor-top-level-catcher nil)))
-        (setq *last-key-event-typed* e))
+        (setq *last-key-event-typed* (event-queue-node-event e)))
     (if (typep e 'buffer-operation)
       (funcall (buffer-operation-thunk e)))))