diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:02:44 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:02:44 -0500 |
commit | 49f93e5fe7261dd520a0013508fd02086af6ae17 (patch) | |
tree | 47c7fd2d368974bd1975e497e1b7108cf79b5803 /2d/stage.scm | |
parent | 77a17d8a5514a0eb920a9d81bf5bf42a192d4266 (diff) |
Pass scene state to all observer event handlers.
Diffstat (limited to '2d/stage.scm')
-rw-r--r-- | 2d/stage.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/2d/stage.scm b/2d/stage.scm index fee18a3..bf966ab 100644 --- a/2d/stage.scm +++ b/2d/stage.scm @@ -87,7 +87,11 @@ (define (stage-trigger stage event . args) (with-agenda (stage-agenda stage) - (apply scene-trigger (stage-scene stage) event args))) + (apply scene-trigger + (stage-scene stage) + (stage-state stage) + event + args))) ;;; ;;; Stage management @@ -116,7 +120,7 @@ present." (exit-stage prev-stage)) (set! stack (cdr stack)) (when (current-stage) - (enter-stage (car stack))))) + (enter-stage (current-stage))))) (define (replace-scene scene) "Replace the current stage with STAGE." |