From 05cd55fb0407a2cab6342d571efa1803322b4726 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Sep 2011 14:00:45 -0500 Subject: [PATCH] make the right-hand side blobs (for online check syntax) look a little bit better in white-on-black mode --- collects/drracket/private/module-language.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index fc2862dc3f..66592c7ad0 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -1323,10 +1323,13 @@ (define path (new dc-path%)) (send dc set-brush "black" 'transparent) - (send dc set-pen (send the-pen-list find-or-create-pen "red" + (send dc set-pen (send the-pen-list find-or-create-pen "red" online-compilation-error-pen-width 'solid 'butt 'miter)) - (send dc set-alpha .25) + (send dc set-alpha + (if (preferences:get 'framework:white-on-black?) + .5 + .25)) (for ([an-error-range (in-list error-ranges)]) (define-values (x1 y1 x2 y2 x3 y3 x4 y4) (get-box an-error-range))