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

some white-on-black color improvements for drracket

Browse Source 
please include on the release branch
This commit is contained in:
Robby Findler 2013-12-04 09:42:37 -06:00
parent 65334e6931
commit 5d36900c97
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt
View File

@ -172,6 +172,9 @@ If the namespace does not, they are colored the unbound color.
#:style both-obligation-style-name
(make-object color% 139 142 28)
(send the-color-database find-color "khaki"))
(color-prefs:add-color-scheme-entry 'drracket:syncheck:matching-identifiers
"GreenYellow"
"DarkGreen")
(define tool@
(unit
@ -260,7 +263,9 @@ If the namespace does not, they are colored the unbound color.
(define (get-tacked-tail-brush white-on-black?)
(send the-brush-list find-or-create-brush "orchid" 'solid))
(define (get-untacked-brush white-on-black?)
(send the-brush-list find-or-create-brush "WHITE" 'solid))
(send the-brush-list find-or-create-brush
(if white-on-black? "black" "white")
'solid))
(define-local-member-name
reset-previous-check-syntax-information
@ -1304,10 +1309,9 @@ If the namespace does not, they are colored the unbound color.
(define current-matching-identifiers (make-hash))
(define/private (update-matching-identifiers refreshing?)
(define clr "GreenYellow")
(define clr (color-prefs:lookup-in-color-scheme
'drracket:syncheck:matching-identifiers))
(define style 'ellipse)
(define in-edit-sequence '())
(define (un/highlight highlight?)
(for ([(lst _) (in-hash current-matching-identifiers)])