Disable key printout.

2022-02-21 14:15:42 -08:00
parent 9b9fc04b0c
commit 93a59422b9
1 changed files with 2 additions and 0 deletions
--- 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