From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 25 Jul 2012 06:47:48 +0000 (-0700)
Subject: gtk: Chop GDK_KEY_ off of key names (not just GDK_).
X-Git-Tag: mit-scheme-pucked-9.2.12~571
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5307ffdec6c963e89e637f923f1ace9e0a0ad853;p=mit-scheme.git

gtk: Chop GDK_KEY_ off of key names (not just GDK_).
---

diff --git a/src/gtk/keys.scm b/src/gtk/keys.scm
index 011327a97..3102b8919 100644
--- a/src/gtk/keys.scm
+++ b/src/gtk/keys.scm
@@ -53,7 +53,7 @@ USA.
 		      (string (symbol-name gdk-name))
 		      (name (cond ((string-prefix? "GDK_KEY_" string)
 				   (intern (string-replace
-					    (string-tail string 4) #\_ #\-)))
+					    (string-tail string 8) #\_ #\-)))
 				  (else
 				   (warn "Unexpected GdkKeysym name:" gdk-name)
 				   gdk-name))))