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