alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable key printout.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-21 14:15:42 -08:00
parent 9b9fc04b0c
commit 93a59422b9
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/grf_test.fs
View File

@ -18,6 +18,7 @@ grf
: run : run
begin begin
wait wait
(
PRESSED event = if PRESSED event = if
." DOWN: " last-key . cr ." DOWN: " last-key . cr
then then
@ -27,6 +28,7 @@ grf
TYPED event = if TYPED event = if
." CHAR: " last-char . cr ." CHAR: " last-char . cr
then then
)
0 to color 0 0 width height box 0 to color 0 0 width height box
LEFT-BUTTON pressed? if $ccccff else $ffccff then to color LEFT-BUTTON pressed? if $ccccff else $ffccff then to color
mouse-x mouse-y height heart mouse-x mouse-y height heart