suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

window move => move background, too

Browse Source 
svn: r2863
This commit is contained in:
Matthew Flatt 2006-05-05 04:59:05 +00:00
parent 10601147cf
commit 88b51730c8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/slideshow/viewer.ss
View File

@ -311,7 +311,11 @@
(define/private (move-over dx dy) (define/private (move-over dx dy)
(let ([x (get-x)] (let ([x (get-x)]
[y (get-y)]) [y (get-y)])
(move (+ x dx) (+ y dy)))) (move (+ x dx) (+ y dy)))
(when background-f
(let ([x (send background-f get-x)]
[y (send background-f get-y)])
(send background-f move (+ x dx) (+ y dy)))))
(define/private (prev) (define/private (prev)
(stop-transition) (stop-transition)