diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-10-23 23:05:42 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-10-23 23:05:42 -0400 |
| commit | c7ea1a30707665d0ca99de570bf8db57455672ef (patch) | |
| tree | 4e651170a47d480470f4f292f9c1bf0ecea8fc21 | |
| parent | f8e3151e456c5b48604a0fa56197b2b599bba77a (diff) | |
Use stage agenda.
| -rw-r--r-- | 2d/stage.scm | 16 |
1 files 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) |