diff options
Diffstat (limited to 'starling/transition.scm')
-rw-r--r-- | starling/transition.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/starling/transition.scm b/starling/transition.scm index 7d28dce..76a3d27 100644 --- a/starling/transition.scm +++ b/starling/transition.scm @@ -92,11 +92,11 @@ (define-generic do-transition) (define-method (on-boot (transition <transition>)) - (attach-to transition (make <canvas> #:name 'canvas))) + (attach-to transition (make <display-2d> #:name 'display))) (define-method (on-enter (transition <transition>)) (script - (attach-to (& transition canvas) + (attach-to (& transition display) (scene-from transition) (scene-to transition)) (do-transition transition) @@ -108,7 +108,7 @@ (define-method (on-boot (fade <fade-transition>)) (next-method) - (attach-to (& fade canvas) + (attach-to (& fade display) (make <filled-rect> #:name 'rect #:region (make-rect 0.0 0.0 640.0 480.0) @@ -116,7 +116,7 @@ (define-method (do-transition (fade <fade-transition>)) (let ((half-duration (inexact->exact (round (/ (duration fade) 2)))) - (rect (& fade canvas rect))) + (rect (& fade display rect))) (define (set-alpha! alpha) (set! (color rect) (make-color 0 0 0 alpha))) (hide (scene-to fade)) |