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

PR 9423

Browse Source 
svn: r9995
This commit is contained in:
Robby Findler 2008-05-28 03:31:25 +00:00
parent b21a0182c1
commit 8e217ad6c6
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/color-prefs.ss
View File

@ -324,11 +324,15 @@
(new button% (new button%
[label (string-constant white-on-black-color-scheme)] [label (string-constant white-on-black-color-scheme)]
[parent hp] [parent hp]
[callback (λ (x y) (preferences:set 'framework:white-on-black? #t))]) [callback (λ (x y)
(preferences:set 'framework:white-on-black? #t)
(white-on-black))])
(new button% (new button%
[label (string-constant black-on-white-color-scheme)] [label (string-constant black-on-white-color-scheme)]
[parent hp] [parent hp]
[callback (λ (x y) (preferences:set 'framework:white-on-black? #f))])))))) [callback (λ (x y)
(preferences:set 'framework:white-on-black? #f)
(black-on-white))]))))))
(define (build-text-foreground-selection-panel parent pref-sym style-name example-text) (define (build-text-foreground-selection-panel parent pref-sym style-name example-text)

5
collects/framework/private/main.ss
View File

@ -51,11 +51,6 @@
(λ (x) (and (list? x) (andmap string? x)))) (λ (x) (and (list? x) (andmap string? x))))
(preferences:set-default 'framework:white-on-black? #f boolean?) (preferences:set-default 'framework:white-on-black? #f boolean?)
(preferences:add-callback 'framework:white-on-black?
(λ (p v)
(if v
(color-prefs:white-on-black)
(color-prefs:black-on-white))))
(preferences:set-default 'framework:case-sensitive-search? (preferences:set-default 'framework:case-sensitive-search?
#f #f