From 62954f2d27dfdb42c2f6e7d2ed3b3011f1c73d20 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 28 Apr 2007 23:49:44 +0000 Subject: [PATCH] filled-flash needs to explicitly set the brush svn: r6078 --- collects/texpict/flash.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/texpict/flash.ss b/collects/texpict/flash.ss index 51c39e253f..c5ee4b2814 100644 --- a/collects/texpict/flash.ss +++ b/collects/texpict/flash.ss @@ -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))))))