From c7ea1a30707665d0ca99de570bf8db57455672ef Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 23 Oct 2013 23:05:42 -0400 Subject: Use stage agenda. --- 2d/stage.scm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/2d/stage.scm b/2d/stage.scm index 8dc7386..3126115 100644 --- a/2d/stage.scm +++ b/2d/stage.scm @@ -61,23 +61,29 @@ (define (init-stage stage) "Call the scene init callback for STAGE." - ((scene-init (stage-scene stage)))) + (with-agenda (stage-agenda stage) + ((scene-init (stage-scene stage))))) (define (enter-stage stage) "Call the scene enter callback for STAGE." - ((scene-enter (stage-scene stage)))) + (with-agenda (stage-agenda stage) + ((scene-enter (stage-scene stage))))) (define (exit-stage stage) "Call the scene exit callback for STAGE." - ((scene-exit (stage-scene stage)))) + (with-agenda (stage-agenda stage) + ((scene-exit (stage-scene stage))))) (define (update-stage stage) "Call the scene update callback for STAGE." - ((scene-update (stage-scene stage)))) + (with-agenda (stage-agenda stage) + (update-agenda) + ((scene-update (stage-scene stage))))) (define (draw-stage stage) "Call the scene draw callback for STAGE." - ((scene-draw (stage-scene stage)))) + (with-agenda (stage-agenda stage) + ((scene-draw (stage-scene stage))))) (define (stage-trigger stage event . args) #f) -- cgit v1.2.3