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? mask-item (event-mask-item structure-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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(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))
(or (eq? type (event-type circulate-request))
(eq? type (event-type configure-request))