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

changed test coverage highlighting to be more color-blind friendly

Browse Source 
svn: r12161
This commit is contained in:
Robby Findler 2008-10-28 21:36:06 +00:00
parent 39021e2da0
commit 23a541177b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/lang/htdp-langs.ss
View File

@ -1041,10 +1041,11 @@
(cond (cond
[(preferences:get 'framework:white-on-black?) [(preferences:get 'framework:white-on-black?)
(send on-sd set-delta-foreground "white") (send on-sd set-delta-foreground "white")
(send off-sd set-delta-foreground "indianred")] (send off-sd set-delta-background "indianred")]
[else [else
(send on-sd set-delta-foreground "black") (send on-sd set-delta-foreground "black")
(send off-sd set-delta-foreground "firebrick")]) (send off-sd set-delta-foreground "lightgray")
(send off-sd set-delta-background "firebrick")])
(send rep set-test-coverage-info ht on-sd off-sd #f))))))))) (send rep set-test-coverage-info ht on-sd off-sd #f)))))))))
(let ([ht (thread-cell-ref current-test-coverage-info)]) (let ([ht (thread-cell-ref current-test-coverage-info)])
(when ht (when ht