From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 16 Feb 2017 18:45:22 +0000 (-0700)
Subject: Fix number-of-event-types constant; add missing event types.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~90
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=735ceddb0d35bad8be74f5449dfc33bbb8c4d620;p=mit-scheme.git

Fix number-of-event-types constant; add missing event types.
---

diff --git a/src/runtime/x11graph.scm b/src/runtime/x11graph.scm
index 08de0e7f5..d9e4bffb6 100644
--- a/src/runtime/x11graph.scm
+++ b/src/runtime/x11graph.scm
@@ -122,7 +122,11 @@ USA.
 (define-integrable event-type:unmap 12)
 (define-integrable event-type:take-focus 13)
 (define-integrable event-type:visibility 14)
-(define-integrable number-of-event-types 15)
+(define-integrable event-type:selection-clear 15)
+(define-integrable event-type:selection-notify 16)
+(define-integrable event-type:selection-request 17)
+(define-integrable event-type:property-notify 18)
+(define-integrable number-of-event-types 19)
 
 ;; This mask contains button-down, button-up,configure, enter,
 ;; focus-in, focus-out, key-press, leave, motion, delete-window, map,