From dc7520bff1c5544811d9f22b45920eb5fe02fac5 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 13 May 2021 21:01:45 -0400 Subject: Add warp-mouse and set-show-cursor! procedures. --- chickadee.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/chickadee.scm b/chickadee.scm index 989056b..8adc313 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -74,6 +74,8 @@ mouse-y mouse-button-pressed? mouse-button-released? + warp-mouse + set-show-cursor! run-game) #:re-export (abort-game)) @@ -107,6 +109,9 @@ "Return #t if BUTTON is not currently being pressed." (sdl2:mouse-button-released? button)) +(define (set-show-cursor! show?) + (sdl2:set-show-cursor! show?)) + (define *controllers* (make-hash-table)) (define (lookup-controller joystick-id) @@ -241,6 +246,9 @@ border is disabled, otherwise it is enabled.") "Move the upper-left corner of WINDOW to pixel coordinates (X, Y)." (sdl2:set-window-position! (unwrap-window window) x y)) +(define (warp-mouse x y) + (sdl2:warp-mouse x y (unwrap-window (current-window)))) + (define* (run-game #:key (window-title "Chickadee!") (window-width 640) -- cgit v1.2.3