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

Revert "change the default colors a bit based on color-blindness feedback"

Browse Source 
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
This commit is contained in:
Robby Findler 2013-09-05 10:17:50 -05:00
parent 099f76a83d
commit 3ab9f555d1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/gui-pkgs/gui-lib/framework/private/racket.rkt
View File

@ -291,16 +291,16 @@
(define color-prefs-table (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-blue (make-object color% 38 38 128)])
`((symbol ,symbol-blue ,(string-constant scheme-mode-color-symbol)) `((symbol ,symbol-blue ,(string-constant scheme-mode-color-symbol))
(keyword ,symbol-blue ,(string-constant scheme-mode-color-keyword)) (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)) (string ,constant-green ,(string-constant scheme-mode-color-string))
(constant ,constant-green ,(string-constant scheme-mode-color-constant)) (constant ,constant-green ,(string-constant scheme-mode-color-constant))
(hash-colon-keyword ,(make-object color% "brown") (hash-colon-keyword ,(make-object color% "brown")
,(string-constant scheme-mode-color-hash-colon-keyword)) ,(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)) (error ,(make-object color% "red") ,(string-constant scheme-mode-color-error))
(other ,(make-object color% "black") ,(string-constant scheme-mode-color-other))))) (other ,(make-object color% "black") ,(string-constant scheme-mode-color-other)))))