From: Matt Birkholz 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))))