From 58d8b48ffbf3c9fa7cd3f86b64feca7ea305028c Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 4 Aug 2012 17:10:40 -0700 Subject: [PATCH] gtk: Make graphic chars out of e.g. ^H in key-press event strings. --- src/gtk/gtk-ev.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.25.1