Skip to content
Snippets Groups Projects
Commit bce4c047 authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r1952,

which included commits to RCS files with non-trunk default branches.
parents bb1a5578 ee6f0960
Branches
Tags
No related merge requests found
...@@ -223,7 +223,7 @@ ...@@ -223,7 +223,7 @@
;;;; Editor input from windowing system. ;;;; Editor input from windowing system.
#| #+clx
(defstruct (windowed-editor-input (defstruct (windowed-editor-input
(:include editor-input (:include editor-input
(:get #'windowed-get-key-event) (:get #'windowed-get-key-event)
...@@ -232,18 +232,21 @@ ...@@ -232,18 +232,21 @@
(:clear #'windowed-clear-input)) (:clear #'windowed-clear-input))
(:print-function (:print-function
(lambda (s stream d) (lambda (s stream d)
(declare (ignore s d write)) (declare (ignore s d))
(write-string "#<Editor-Window-Input stream>" stream))) (write-string "#<Editor-Window-Input stream>" stream)))
(:constructor make-windowed-editor-input (:constructor make-windowed-editor-input
(&optional (head (make-input-event)) (tail head)))) (&optional (head (make-input-event)) (tail head))))
hunks) ; List of bitmap-hunks which input to this stream. hunks) ; List of bitmap-hunks which input to this stream.
#+clx
(defun windowed-get-key-event (stream ignore-abort-attempts-p) (defun windowed-get-key-event (stream ignore-abort-attempts-p)
(editor-input-method-macro)) (editor-input-method-macro))
#+clx
(defun windowed-unget-key-event (key-event stream) (defun windowed-unget-key-event (key-event stream)
(un-event key-event stream)) (un-event key-event stream))
#+clx
(defun windowed-clear-input (stream) (defun windowed-clear-input (stream)
(loop (unless (system:serve-event 0) (return))) (loop (unless (system:serve-event 0) (return)))
(without-interrupts (without-interrupts
...@@ -255,6 +258,7 @@ ...@@ -255,6 +258,7 @@
*free-input-events* next) *free-input-events* next)
(setf (editor-input-tail stream) head))))) (setf (editor-input-tail stream) head)))))
#+clx
(defun windowed-listen (stream) (defun windowed-listen (stream)
(loop (unless (system:serve-event 0) (loop (unless (system:serve-event 0)
;; If nothing is pending, check the queued input. ;; If nothing is pending, check the queued input.
...@@ -263,7 +267,7 @@ ...@@ -263,7 +267,7 @@
;; Don't service anymore events if we just got some input. ;; Don't service anymore events if we just got some input.
(return t)))) (return t))))
|#
;;;; Editor input from a tty. ;;;; Editor input from a tty.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment