diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index f856ff89544d03275f8b07eece62b236e45c2d06..a4d5e6baf8e800ddc5196937bbb64d96a74a621d 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -211,21 +211,33 @@ (apply #'xlib:make-event-mask (append input/boundary-xevents-selection-keys '(:exposure :structure-notify)))) -(defconstant group-interesting-xevents - '(: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)) #+clx -(defconstant child-interesting-xevents - '(:key-press :button-press :button-release :structure-notify :exposure - :enter-window :leave-window)) +(eval-when (compile load eval) + (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)) -(defconstant random-typeout-xevents - '(:key-press :button-press :button-release :enter-window :leave-window - :exposure)) +#+clx +(eval-when (compile load eval) + (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))