From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 5 Aug 2012 00:10:40 +0000 (-0700)
Subject: gtk: Make graphic chars out of e.g. ^H in key-press event strings.
X-Git-Tag: mit-scheme-pucked-9.2.12~569
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=58d8b48ffbf3c9fa7cd3f86b64feca7ea305028c;p=mit-scheme.git

gtk: Make graphic chars out of e.g. ^H in key-press event strings.
---

diff --git a/src/gtk/gtk-ev.scm b/src/gtk/gtk-ev.scm
index c72b10400..7acf50a99 100644
--- a/src/gtk/gtk-ev.scm
+++ b/src/gtk/gtk-ev.scm
@@ -390,7 +390,7 @@ USA.
 		 (text (let ((alien (make-alien '|gchar|)))
 			 (C-> GdkEvent "GdkEvent key string" alien)
 			 (c-peek-cstring alien))))
-	     (cat "Keyval: "keyval" Text: "text"\n")))
+	     (cat "Keyval: "keyval" Text: "(write-to-string text)"\n")))
 	  (else
 	   #f))))