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

correct round-off error in Slideshow clickback highlighting

Browse Source 
svn: r4808
This commit is contained in:
Matthew Flatt 2006-11-08 21:49:11 +00:00
parent 2a49156894
commit 6ca71b6035
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/slideshow/viewer.ss
View File

@ -650,10 +650,14 @@
(send dc draw-rectangle x y w h)
(send dc set-pen p)
(send dc set-brush b))
(send dc draw-bitmap-section
(send offscreen get-bitmap)
x y x y
w h))))
(let ([x (floor x)]
[y (floor y)]
[w (- (floor (+ x w)) (floor x))]
[h (- (floor (+ y h)) (floor y))])
(send dc draw-bitmap-section
(send offscreen get-bitmap)
x y x y
w h)))))
(define offscreen #f)
(define/public get-offscreen (lambda () offscreen))