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

PR 9423

Browse Source 
svn: r9995

original commit: 8e217ad6c668501710969df5600619df1fbe9f27
This commit is contained in:
Robby Findler 2008-05-28 03:31:25 +00:00
parent fc85198bb3
commit a96927b2b4
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%
[label (string-constant white-on-black-color-scheme)]
[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%
[label (string-constant black-on-white-color-scheme)]
[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)

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

@ -51,11 +51,6 @@
(λ (x) (and (list? x) (andmap string? x))))
(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?
#f