From 38c513067b767d91c51760b0aaeffc04f96d1917 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 23 Nov 2016 10:45:54 -0700 Subject: [PATCH] x11 (event-name): Rename event-type-name and export (for debugging). --- src/x11/x11-base.scm | 2 +- src/x11/x11.pkg | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm index 444c6b4d4..f99c0ea60 100644 --- a/src/x11/x11-base.scm +++ b/src/x11/x11-base.scm @@ -146,7 +146,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. ((eq? xtype (C-enum "UnmapNotify")) event-type:unmap) (else (warn "Unexpected XEvent.") #f))) -(define (event-name scmtype) +(define (event-type-name scmtype) (let ((sym (C-enum "ScmEventType" scmtype))) (if (not sym) "" diff --git a/src/x11/x11.pkg b/src/x11/x11.pkg index 65fc847cf..a7de8f9bd 100644 --- a/src/x11/x11.pkg +++ b/src/x11/x11.pkg @@ -52,6 +52,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. x-window-set-event-mask x-window-or-event-mask x-window-andc-event-mask + event-type-name event-type:button-down event-type:button-up event-type:configure -- 2.25.1