From 3c439a773138ca86a3810de6a37912ff588f7d0e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 23 Aug 2013 01:32:34 -0500 Subject: [PATCH] change the default colors a bit based on color-blindness feedback - paren color from brown to a neon blue - string and number constants from green to a bright purple - lighten the comment color the basic problem is to try to keep the red error color very distinct from the others and try to keep the others distinct from each other (but that's less important) --- pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt index 0e6ed9e91b..930e900575 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt @@ -291,16 +291,16 @@ (define color-prefs-table - (let ([constant-green (make-object color% 41 128 38)] + (let ([constant-green (make-object color% 211 72 255)] [symbol-blue (make-object color% 38 38 128)]) `((symbol ,symbol-blue ,(string-constant scheme-mode-color-symbol)) (keyword ,symbol-blue ,(string-constant scheme-mode-color-keyword)) - (comment ,(make-object color% 194 116 31) ,(string-constant scheme-mode-color-comment)) + (comment ,(make-object color% 194 158 31) ,(string-constant scheme-mode-color-comment)) (string ,constant-green ,(string-constant scheme-mode-color-string)) (constant ,constant-green ,(string-constant scheme-mode-color-constant)) (hash-colon-keyword ,(make-object color% "brown") ,(string-constant scheme-mode-color-hash-colon-keyword)) - (parenthesis ,(make-object color% "brown") ,(string-constant scheme-mode-color-parenthesis)) + (parenthesis ,(make-object color% 0 150 255) ,(string-constant scheme-mode-color-parenthesis)) (error ,(make-object color% "red") ,(string-constant scheme-mode-color-error)) (other ,(make-object color% "black") ,(string-constant scheme-mode-color-other)))))