diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 621c256945f7df8fc70916b52f71ccf3da42a30c..69dea70a70165341da324efbdde2f65f9c463f26 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.14 1991/11/22 15:14:52 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.15 1991/11/23 21:28:32 chiles Exp $") ;;; ;;; ********************************************************************** ;;; @@ -187,41 +187,10 @@ (defvar *editor-windowed-input* nil) ;;; These are used for selecting X events. -;;; -;;; This says to send :key-press, :button-press, :button-release, :enter-notify, -;;; and :leave-notify events. -;;; -#+clx -(eval-when (compile load eval) - (defconstant input/boundary-xevents-selection-keys - '(:key-press :button-press :button-release :enter-window :leave-window))) -#+clx -(defconstant input/boundary-xevents-mask - (apply #'xlib:make-event-mask input/boundary-xevents-selection-keys)) -;;; -;;; This says to send :exposure, :destroy-notify, :unmap-notify, :map-notify, -;;; :reparent-notify, :configure-notify, :gravity-notify, and :circulate-notify -;;; in addition to the above events. Of those enumerated here, we only care -;;; about :exposure and :configure-notify. -;;; -#+clx -(eval-when (compile load eval) - (defconstant interesting-xevents-receive-keys - '(:key-press :button-press :button-release :enter-notify :leave-notify - :exposure :graphics-exposure :configure-notify :destroy-notify - :unmap-notify :map-notify :reparent-notify :gravity-notify - :circulate-notify))) -#+clx -(defconstant interesting-xevents-mask - (apply #'xlib:make-event-mask - (append input/boundary-xevents-selection-keys - '(:exposure :structure-notify)))) - #+clx (eval-when (compile load eval) (defconstant group-interesting-xevents '(:structure-notify))) - #+clx (defconstant group-interesting-xevents-mask (apply #'xlib:make-event-mask group-interesting-xevents)) @@ -231,7 +200,6 @@ (defconstant child-interesting-xevents '(:key-press :button-press :button-release :structure-notify :exposure :enter-window :leave-window))) - #+clx (defconstant child-interesting-xevents-mask (apply #'xlib:make-event-mask child-interesting-xevents)) @@ -241,7 +209,6 @@ (defconstant random-typeout-xevents '(:key-press :button-press :button-release :enter-window :leave-window :exposure))) - #+clx (defconstant random-typeout-xevents-mask (apply #'xlib:make-event-mask random-typeout-xevents))