From 2ab4f88188a4767dfc0e9c053a91481097ed11e5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Oct 2009 19:32:58 +0000 Subject: [PATCH] fix Slideshow rounded-rectangle svn: r16434 --- collects/texpict/utils.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss index cebb982180..869cd8b873 100644 --- a/collects/texpict/utils.ss +++ b/collects/texpict/utils.ss @@ -280,9 +280,9 @@ w h)) - (define (rounded-rectangle w h [corner-radius 0.25] #:angle [angle 0]) + (define (rounded-rectangle w h [corner-radius -0.25] #:angle [angle 0]) (let ([dc-path (new dc-path%)]) - (send dc-path rounded-rectangle 0 0 w h (- corner-radius)) + (send dc-path rounded-rectangle 0 0 w h corner-radius) (send dc-path rotate angle) (let-values ([(x y w h) (send dc-path get-bounding-box)]) (dc (λ (dc dx dy)