diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-11-10 21:29:40 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-11-10 21:29:40 -0500 |
| commit | 3b814d7eb0b60c691803aa8681bcbd222acac36d (patch) | |
| tree | 3fdb2ebc3348c9d7cd244ff04a08d4d2f94075d0 | |
| parent | 55c854fc3016b4a3e9328c7c97495d5f3d770e28 (diff) | |
input: mouse: Add mouse-button-released?
* sdl2/input/mouse.scm (mouse-button-released?): New procedure.
| -rw-r--r-- | sdl2/input/mouse.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/sdl2/input/mouse.scm b/sdl2/input/mouse.scm index 55c7833..c172909 100644 --- a/sdl2/input/mouse.scm +++ b/sdl2/input/mouse.scm @@ -31,7 +31,8 @@ #:use-module (system foreign) #:export (mouse-x mouse-y - mouse-button-pressed?)) + mouse-button-pressed? + mouse-button-released?)) (define (make-int) (make-bytevector (sizeof int))) @@ -65,3 +66,7 @@ ('x2 ffi:SDL_BUTTON_X2MASK))) (buttons (ffi:sdl-get-mouse-state %null-pointer %null-pointer))) (> (logand mask buttons) 0))) + +(define (mouse-button-released? button) + "Return #t if BUTTON is not currently being pressed." + (not (mouse-button-pressed? button))) |