Changeset 740

Timestamp:

Mar 27, 2004, 2:53:56 AM (21 years ago)

Author:

Gary Byers

Message:

Update the selection before grabbing the next key-event. Timed-wait on next
event, for EDITOR-SLEEP.

File:

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

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

@@ -19 +19 @@
 
 (defun dequeue-key-event (q)
+  (unless (listen-editor-input q)
+    (let* ((document (buffer-document (current-buffer))))
+      (when document
+        (document-set-point-position document))))
   (ccl::wait-on-semaphore (frame-event-queue-signal q))
   (ccl::locked-dll-header-dequeue q))
+
 
 (defun unget-key-event (event q)
@@ -27 +32 @@
   (ccl::signal-semaphore (frame-event-queue-signal q)))
 
+(defun timed-wait-for-key-event (q seconds)
+  (let* ((signal (frame-event-queue-signal q)))
+    (when (ccl:timed-wait-on-semaphore signal seconds)
+      (ccl:signal-semaphore signal)
+      t)))
 
 
@@ -64 +74 @@
   (declare (ignore ignore-pending-aborts))
   (do* ((e (dequeue-key-event q) (dequeue-key-event q)))
-       ((typep e 'hemlock-ext:key-event)
+       ((typep e 'hemlock-ext:key-event)        
         (setq *last-key-event-typed* e))
     (if (typep e 'buffer-operation)