3
;;; $Id: xterm.scm,v 1.69 2002/03/06 20:05:44 cph Exp $
5
;;; Copyright (c) 1989-2002 Massachusetts Institute of Technology
7
;;; This program is free software; you can redistribute it and/or
8
;;; modify it under the terms of the GNU General Public License as
9
;;; published by the Free Software Foundation; either version 2 of the
10
;;; License, or (at your option) any later version.
12
;;; This program is distributed in the hope that it will be useful,
13
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15
;;; General Public License for more details.
17
;;; You should have received a copy of the GNU General Public License
18
;;; along with this program; if not, write to the Free Software
19
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
3
$Id: xterm.scm,v 1.72 2003/02/14 18:28:14 cph Exp $
5
Copyright 1989,1990,1991,1992,1993,1995 Massachusetts Institute of Technology
6
Copyright 1996,1998,1999,2000,2001,2002 Massachusetts Institute of Technology
7
Copyright 2003 Massachusetts Institute of Technology
9
This file is part of MIT/GNU Scheme.
11
MIT/GNU Scheme is free software; you can redistribute it and/or modify
12
it under the terms of the GNU General Public License as published by
13
the Free Software Foundation; either version 2 of the License, or (at
14
your option) any later version.
16
MIT/GNU Scheme is distributed in the hope that it will be useful, but
17
WITHOUT ANY WARRANTY; without even the implied warranty of
18
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19
General Public License for more details.
21
You should have received a copy of the GNU General Public License
22
along with MIT/GNU Scheme; if not, write to the Free Software
23
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
23
29
;;; Package: (edwin x-screen)
567
574
(define (preview-event-stream)
568
575
(set! previewer-registration
569
(permanently-register-input-thread-event
576
(permanently-register-io-thread-event
570
577
(x-display-descriptor x-display-data)
573
582
(if (not reading-event?)
574
583
(let ((event (x-display-process-events x-display-data 2)))