events: mouse: Add motion event bindings.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 17 Dec 2015 01:47:20 +0000 (20:47 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 17 Dec 2015 01:47:20 +0000 (20:47 -0500)
commit2fd545051eb6307ab2a3fe70e69af27cb44e96cb
treec9717ceb885313571ed08660fc6c805a9028e1e3
parent5679a233b55f1a6919bc14d54683c1c84bc15652
events: mouse: Add motion event bindings.

* sdl2/bindings.scm (button-mask): New procedure.
  (SDL_BUTTON_LMASK, SDL_BUTTON_RMASK, SDL_BUTTON_MMASK,
  SDL_BUTTON_X1MASK, SDL_BUTTON_X2MASK): New variables.
* sdl2/events.scm (<mouse-motion-event>): New record type.
  (make-mouse-motion-event mouse-motion-event?,
mouse-motion-event-timestamp, mouse-motion-event-window-id,
mouse-motion-event-which, mouse-motion-event-buttons,
mouse-motion-event-x, mouse-motion-event-y, mouse-motion-event-x-rel,
mouse-motion-event-y-rel, parse-mouse-motion-event): New procedures.
sdl2/bindings.scm
sdl2/events.scm