From 23a541177bf6f9ba6a43915035b5538e41b637cf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 28 Oct 2008 21:36:06 +0000 Subject: [PATCH] changed test coverage highlighting to be more color-blind friendly svn: r12161 --- collects/lang/htdp-langs.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index 0dc74efd39..cc2d66d69f 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -1041,10 +1041,11 @@ (cond [(preferences:get 'framework:white-on-black?) (send on-sd set-delta-foreground "white") - (send off-sd set-delta-foreground "indianred")] + (send off-sd set-delta-background "indianred")] [else (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))))))))) (let ([ht (thread-cell-ref current-test-coverage-info)]) (when ht