From 3ab9f555d1282cc6afe457ef20f970f8512f87d8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 5 Sep 2013 10:17:50 -0500 Subject: [PATCH] Revert "change the default colors a bit based on color-blindness feedback" This reverts commit 3c439a773138ca86a3810de6a37912ff588f7d0e. Instead of changing the default colors, add support for color schemes and then use these colors as a starting point for a new color scheme original commit: 136c18f7e925a04115f631c7d17164ed2c8d268d --- 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 962f4f77..ec4e69de 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% 211 72 255)] + (let ([constant-green (make-object color% 41 128 38)] [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 158 31) ,(string-constant scheme-mode-color-comment)) + (comment ,(make-object color% 194 116 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% 0 150 255) ,(string-constant scheme-mode-color-parenthesis)) + (parenthesis ,(make-object color% "brown") ,(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)))))