x11 (event-name): Rename event-type-name and export (for debugging).

diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm
index 444c6b4d45e371fe77d78644833060c72b458ea6..f99c0ea60cc84ab026c8fb21e3214c5104445063 100644 (file)
--- 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)
        "<unknown>"

diff --git a/src/x11/x11.pkg b/src/x11/x11.pkg
index 65fc847cffb48680d38f2cf604811bf4a6fb7bd2..a7de8f9bdb77919201d95fdd14e5093169b47c81 100644 (file)
--- 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