All Event* constants are defined.

: itemid ( &event -- )
Get item ID from EventType address.

: coord@ ( &event -- x y )
Get pen coordinates from EventType address.
