From f499b39bf52fd70ea0b2a9543d5bd287e12085dd Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 21 Jul 2013 22:38:40 -0400 Subject: Add additional SDL event handlers. --- 2d/game-loop.scm | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) diff --git a/2d/game-loop.scm b/2d/game-loop.scm index ef650d5..660a196 100644 --- a/2d/game-loop.scm +++ b/2d/game-loop.scm @@ -25,7 +25,10 @@ #:use-module ((sdl sdl) #:prefix SDL:) #:use-module (figl gl) #:use-module (2d agenda) - #:export (set-render-callback + #:export (set-active-callback + set-resize-callback + set-quit-callback + set-render-callback set-update-callback set-key-up-callback set-key-down-callback @@ -41,6 +44,9 @@ ;;; Callbacks ;;; +(define active-callback (lambda () #t)) +(define resize-callback (lambda (width height) #t)) +(define quit-callback (lambda () #t)) (define render-callback (lambda () #t)) (define update-callback (lambda () #t)) (define key-up-callback (lambda (key mod unicode) #t)) @@ -49,6 +55,18 @@ (define mouse-button-down-callback (lambda (button x y) #t)) (define mouse-button-up-callback (lambda (button x y) #t)) +(define (set-active-callback callback) + "Sets the active callback procedure." + (set! active-callback callback)) + +(define (set-resize-callback callback) + "Sets the resize callback procedure." + (set! resize-callback callback)) + +(define (set-quit-callback callback) + "Sets the quit callback procedure." + (set! quit-callback callback)) + (define (set-render-callback callback) "Sets the render callback procedure." (set! render-callback callback)) @@ -91,6 +109,13 @@ (define (handle-event e) "Calls the relevant callback for the event." (case (SDL:event:type e) + ((active) + (active-callback)) + ((video-resize) + (resize-callback (SDL:event:resize:w e) + (SDL:event:resize:h e))) + ((quit) + (quit-callback)) ((key-down) (key-down-callback (SDL:event:key:keysym:sym e) (SDL:event:key:keysym:mod e) -- cgit v1.2.3