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

make the right-hand side blobs (for online check syntax) look a little bit

Browse Source 
better in white-on-black mode
This commit is contained in:
Robby Findler 2011-09-10 14:00:45 -05:00
parent cd1c96d596
commit 05cd55fb04
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drracket/private/module-language.rkt
View File

@ -1326,7 +1326,10 @@
(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 online-compilation-error-pen-width
'solid 'butt 'miter)) '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)]) (for ([an-error-range (in-list error-ranges)])
(define-values (x1 y1 x2 y2 x3 y3 x4 y4) (get-box an-error-range)) (define-values (x1 y1 x2 y2 x3 y3 x4 y4) (get-box an-error-range))