From 3c2cb93f748227052c1128a67187f627f67c81df Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 12 Sep 2008 22:31:57 +0000 Subject: [PATCH] adjusted colors, hopefully better for colorblind people svn: r11703 --- collects/drscheme/private/debug.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index f18fc02cd7..a17f0b9d47 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -997,10 +997,11 @@ profile todo: (super-new))) (define test-covered-style-delta (make-object style-delta%)) - (send test-covered-style-delta set-delta-foreground "forest green") - (define test-not-covered-style-delta (make-object style-delta%)) - (send test-not-covered-style-delta set-delta-foreground "firebrick") + + ;; test colors chosen to try to be color-blindness friendly + (send test-covered-style-delta set-delta-foreground "forest green") + (send test-not-covered-style-delta set-delta-foreground "maroon") (define erase-test-coverage-style-delta (make-object style-delta% 'change-normal-color))