\ applikace

: dispatch-event ( ekey -- ekey )
  ;

: handle-events ( -- )
  begin
    ekey dispatch-event drop
  again ;

: go ( -- )
  page
  handle-events ;

\ app-1

needs Events
needs ondo    \ Kris's totally awesome dispatching words

: penDown ( -- )
  coords@ ." penDown: " . space . cr ;

: penMove ( -- )
  coords@ ." penMove: " . space . cr ;

: penUp ( -- )
  coords@ ." penUp: " . space . cr ;

: dispatch-event ( ekey -- ekey )
  on: penDownEvent do: penDown
  on: penMoveEvent do: penMove
  on: penUpEvent do: penUp ;

: handle-events ( -- )
  begin
    ekey dispatch-event drop
  again ;

: go ( -- )
  page
  handle-events ;