From 88c33c2c0331986473268177c031ae03d39437e8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 5 Jan 2005 00:38:01 +0000 Subject: [PATCH] . original commit: 2945ed7edcd1e87a0ce69906d5e89c65e29c66d2 --- collects/mrlib/name-message.ss | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.ss index 86e8878c..8eb43a44 100644 --- a/collects/mrlib/name-message.ss +++ b/collects/mrlib/name-message.ss @@ -212,19 +212,24 @@ [xh (- h (* 2 border-inset))]) (case (system-type) [(macosx) - (send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid)) - (send dc set-brush (send the-brush-list find-or-create-brush color 'solid)) - (send dc draw-ellipse (+ dx border-inset) (+ dy border-inset) xh xh) - (send dc draw-ellipse (+ dx (- w xh)) (+ dy border-inset) xh xh) - (send dc set-pen (send the-pen-list find-or-create-pen "black" 1 'transparent)) - (send dc draw-rectangle (+ dx (quotient xh 2)) (+ dy border-inset) (- w xh) xh) - (send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid)) - (send dc draw-line + (send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid)) + (send dc set-brush (send the-brush-list find-or-create-brush color 'solid)) + + (let ([old-smooth (send dc get-smoothing)]) + (send dc set-smoothing 'aligned) + (send dc draw-ellipse (+ dx border-inset) (+ dy border-inset) xh xh) + (send dc draw-ellipse (+ dx (- w xh)) (+ dy border-inset) xh xh) + (send dc set-smoothing old-smooth)) + + (send dc set-pen (send the-pen-list find-or-create-pen "black" 1 'transparent)) + (send dc draw-rectangle (+ dx (quotient xh 2)) (+ dy border-inset) (- w xh) xh) + (send dc set-pen (send the-pen-list find-or-create-pen color 1 'solid)) + (send dc draw-line (+ dx (quotient xh 2)) (+ dy border-inset) (+ dx (- w (quotient xh 2))) (+ dy border-inset)) - (send dc draw-line + (send dc draw-line (+ dx (quotient xh 2)) (+ dy (- h 1 border-inset)) (+ dx (- w (quotient xh 2)))