needs lib/coop io/mouse
unit bench/mouse

createapplication MBApp

:> ."Quitting!\n" stopcurrent ;
KEYPRESS MBApp sethandler

:> evarg1 . spc> evarg2 . spc> evarg3 .x1 spc> evarg4 .x1 nl> ;
MOUSECLICK MBApp sethandler

:>
  ."Clicks show mouse pos and state\n"
  ."Quits on any key press\n" ;
INITIALIZE MBApp sethandler

MBApp newcontext const mbctx \ this is a static app
: mousebench mbctx launchcontext ;