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

filled-flash needs to explicitly set the brush

Browse Source 
svn: r6078
This commit is contained in:
Matthew Flatt 2007-04-28 23:49:44 +00:00
parent 18ff1e83f4
commit 62954f2d27
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/texpict/flash.ss
View File

@ -41,10 +41,10 @@
(let-values ([(bx by bw bh) (send p get-bounding-box)])
(send p translate (- bx) (- by))
(dc (lambda (dc x y)
(let ([b (or filled? (send dc get-brush))])
(unless filled?
(send dc set-brush no-brush))
(let ([b (send dc get-brush)])
(if filled?
(send dc set-brush (send (send dc get-pen) get-color) 'solid)
(send dc set-brush no-brush))
(send dc draw-path p x y)
(unless filled?
(send dc set-brush b))))
(send dc set-brush b)))
bw bh))))))