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

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

@ -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))