Clean up IDLE vs TIMEOUT vs UNKNOWN.

ueforth/common/grf.fs

@@ -31,7 +31,7 @@
 \   pressed? ( k -- f )
 \   event ( -- n )
 \ Event constants:
-\   UNKNOWN TIMEOUT RESIZED EXPOSED MOTION
+\   IDLE RESIZED EXPOSED MOTION
 \   PRESSED RELEASED TYPED FINISHED
 \ Key/Button constants:
 \   LEFT-BUTTON MIDDLE-BUTTON RIGHT-BUTTON
@@ -39,15 +39,14 @@
 vocabulary grf   grf definitions
 vocabulary internals
 
-0 constant UNKNOWN
+0 constant IDLE
-1 constant TIMEOUT
+1 constant RESIZED
-2 constant RESIZED
+2 constant EXPOSED
-3 constant EXPOSED
+3 constant MOTION
-4 constant MOTION
+4 constant PRESSED
-5 constant PRESSED
+5 constant RELEASED
-6 constant RELEASED
+6 constant TYPED
-7 constant TYPED
+7 constant FINISHED
-8 constant FINISHED
 
 255 constant LEFT-BUTTON
 254 constant MIDDLE-BUTTON

ueforth/examples/heart_game.fs

@@ -206,7 +206,7 @@ create arrow-table
         fire
       then
     then
-    event UNKNOWN = if
+    event IDLE = if
       begin ms-ticks to next-tm next-tm last-tm - 10 < while 1 ms repeat
       next-tm to last-tm
       100 random 0= if volcano-spew then

ueforth/posix/grf.fs

@@ -79,7 +79,7 @@ StructureNotifyMask or constant EVENT-MASK
 ;
 
 : update-event
-  UNKNOWN to event
+  IDLE to event
   xevent [ xany ] ->type sl@ to xevent-type
   Expose xevent-type = if
     EXPOSED to event
@@ -160,7 +160,7 @@ also grf definitions
 : poll
   pending-key? if exit then
   display event-mask xevent XCheckMaskEvent
-    if update-event else TIMEOUT to event then
+    if update-event else IDLE to event then
 ;
 
 forth definitions

ueforth/windows/grf.fs

@@ -163,7 +163,7 @@ also windows
 
 : poll
   event FINISHED = if exit then
-  UNKNOWN to event
+  IDLE to event
   msgbuf NULL 0 0 PM_REMOVE PeekMessageA if
     msgbuf TranslateMessage drop
     msgbuf DispatchMessageA drop