scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed bug with structure-notify and substructure-notify event-masks

This commit is contained in:
frese 2003-04-25 18:51:07 +00:00
parent ad89f01b78
commit 95c80db77f
1 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
scheme/xlib/sync-event.scm
View File

@ -196,36 +196,51 @@
(eq? type (event-type resize-request))) (eq? type (event-type resize-request)))
((eq? mask-item (event-mask-item structure-notify)) ((eq? mask-item (event-mask-item structure-notify))
(or (and (eq? type (event-type circulate-notify)) (or (and (eq? type (event-type circulate-notify))
(eq? window (circulate-event-event event))) (eq? window (circulate-event-event event))
(eq? window (circulate-event-window event)))
(and (eq? type (event-type configure-notify)) (and (eq? type (event-type configure-notify))
(eq? window (configure-event-event event))) (eq? window (configure-event-event event))
(eq? window (configure-event-window event)))
(and (eq? type (event-type destroy-notify)) (and (eq? type (event-type destroy-notify))
(eq? window (destroy-window-event-event event))) (eq? window (destroy-window-event-event event))
(eq? window (destroy-window-event-window event)))
(and (eq? type (event-type gravity-notify)) (and (eq? type (event-type gravity-notify))
(eq? window (gravity-event-event event))) (eq? window (gravity-event-event event))
(eq? window (gravity-event-window event)))
(and (eq? type (event-type map-notify)) (and (eq? type (event-type map-notify))
(eq? window (map-event-event event))) (eq? window (map-event-event event))
(eq? window (map-event-window event)))
(and (eq? type (event-type reparent-notify)) (and (eq? type (event-type reparent-notify))
(eq? window (reparent-event-event event))) (eq? window (reparent-event-event event))
(eq? window (reparent-event-window event)))
(and (eq? type (event-type unmap-notify)) (and (eq? type (event-type unmap-notify))
(eq? window (unmap-event-event event))))) (eq? window (unmap-event-event event))
(eq? window (unmap-event-window event)))))
((eq? mask-item (event-mask-item substructure-notify)) ((eq? mask-item (event-mask-item substructure-notify))
(or (and (eq? type (event-type circulate-notify)) (or (and (eq? type (event-type circulate-notify))
(eq? window (circulate-event-event event))) (eq? window (circulate-event-event event))
(not (eq? window (circulate-event-window event))))
(and (eq? type (event-type configure-notify)) (and (eq? type (event-type configure-notify))
(eq? window (configure-event-event event))) (eq? window (configure-event-event event))
(not (eq? window (configure-event-window event))))
(and (eq? type (event-type create-notify)) (and (eq? type (event-type create-notify))
(eq? window (create-window-event-parent event))) (eq? window (create-window-event-parent event))
(not (eq? window (create-window-event-window event))))
(and (eq? type (event-type destroy-notify)) (and (eq? type (event-type destroy-notify))
(eq? window (destroy-window-event-event event))) (eq? window (destroy-window-event-event event))
(not (eq? window (destroy-window-event-window event))))
(and (eq? type (event-type gravity-notify)) (and (eq? type (event-type gravity-notify))
(eq? window (gravity-event-event event))) (eq? window (gravity-event-event event))
(not (eq? window (gravity-event-window event))))
(and (eq? type (event-type map-notify)) (and (eq? type (event-type map-notify))
(eq? window (map-event-event event))) (eq? window (map-event-event event))
(not (eq? window (map-event-window event))))
(and (eq? type (event-type reparent-notify)) (and (eq? type (event-type reparent-notify))
(eq? window (reparent-event-event event))) (eq? window (reparent-event-event event))
(not (eq? window (reparent-event-window event))))
(and (eq? type (event-type unmap-notify)) (and (eq? type (event-type unmap-notify))
(eq? window (unmap-event-event event))))) (eq? window (unmap-event-event event))
(not (eq? window (unmap-event-window event))))))
((eq? mask-item (event-mask-item substructure-redirect)) ((eq? mask-item (event-mask-item substructure-redirect))
(or (eq? type (event-type circulate-request)) (or (eq? type (event-type circulate-request))
(eq? type (event-type configure-request)) (eq? type (event-type configure-request))