From 93a59422b9e251019f9d6f16a1c39764c06c0668 Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Mon, 21 Feb 2022 14:15:42 -0800
Subject: [PATCH] Disable key printout.

---
 ueforth/common/grf_test.fs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ueforth/common/grf_test.fs b/ueforth/common/grf_test.fs
index 72f6b1a..01bf5ef 100644
--- a/ueforth/common/grf_test.fs
+++ b/ueforth/common/grf_test.fs
@@ -18,6 +18,7 @@ grf
 : run
   begin
     wait
+(
     PRESSED event = if
       ." DOWN: " last-key . cr
     then
@@ -27,6 +28,7 @@ grf
     TYPED event = if
       ." CHAR: " last-char . cr
     then
+)
     0 to color 0 0 width height box
     LEFT-BUTTON pressed? if $ccccff else $ffccff then to color
     mouse-x mouse-y height heart