\ Events 98.11.11 8:25 pm NAB
needs toolkit

0 enum EventType
  EventType nilEvent
  EventType penDownEvent
  EventType penUpEvent
  EventType penMoveEvent
  EventType keyDownEvent
  EventType winEnterEvent
  EventType winExitEvent
  EventType ctlEnterEvent
  EventType ctlExitEvent
  EventType ctlSelectEvent
  EventType ctlRepeatEvent
  EventType lstEnterEvent
  EventType lstSelectEvent
  EventType lstExitEvent
  EventType popSelectEvent
  EventType fldEnterEvent
  EventType fldHeightChangedEvent
  EventType fldChangedEvent
  EventType tblEnterEvent
  EventType tblSelectEvent
  EventType daySelectEvent
  EventType menuEvent
  EventType appStopEvent
  EventType frmLoadEvent
  EventType frmOpenEvent
  EventType frmGotoEvent
  EventType frmUpdateEvent
  EventType frmSaveEvent
  EventType frmCloseEvent
  EventType frmTitleEnterEvent
  EventType frmTitleSelectEvent
  EventType tblExitEvent
  EventType sclEnterEvent
  EventType sclExitEvent
  EventType sclRepeatEvent

32767 constant firstUserEvent

event 2 cells + constant coords
: coords@ ( -- y x )  coords 2@ ; inline

: itemid
( &event. -- menuitem )
  8 m+ @a ;