From ee1688107da262806ee4ab22ee5391e408e887cd Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 7 Jun 2011 07:22:06 -0700 Subject: [PATCH] Recognize GDK_MOD1_ as the char-bit:meta. --- src/gtk/keys.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/gtk/keys.scm b/src/gtk/keys.scm index 4beeddc57..c1d460687 100644 --- a/src/gtk/keys.scm +++ b/src/gtk/keys.scm @@ -32,8 +32,10 @@ USA. (fix:+ (if (bit? modifier-state (C-enum "GDK_META_MASK")) char-bit:meta 0) (fix:+ - (if (bit? modifier-state (C-enum "GDK_SUPER_MASK")) char-bit:super 0) - (if (bit? modifier-state (C-enum "GDK_HYPER_MASK")) char-bit:hyper 0))))) + (if (bit? modifier-state (C-enum "GDK_MOD1_MASK")) char-bit:meta 0) + (fix:+ + (if (bit? modifier-state (C-enum "GDK_SUPER_MASK")) char-bit:super 0) + (if (bit? modifier-state (C-enum "GDK_HYPER_MASK")) char-bit:hyper 0)))))) (define (gdk-keyval->name keyval) (let ((entry -- 2.25.1