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

#+clx'ed X only files.

parent 942cd4b9
No related branches found
No related tags found
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.
Finish editing this message first!
Please register or to comment