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

make the example in the prefs dialog pick up the background color

Browse Source 
more accurately
This commit is contained in:
Robby Findler 2013-09-08 11:17:16 -05:00
parent 8311b620b4
commit 49bd79ddb8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt
View File

@ -992,10 +992,9 @@
[style '(auto-hscroll no-vscroll)]
[editor t]))
(send ec set-canvas-background
(send the-color-database find-color
(if (color-scheme-white-on-black-base? color-scheme)
"black"
"white")))
(lookup-in-color-scheme/given-mapping
'framework:basic-canvas-background
(hash) color-scheme))
(send t set-style-list (color-scheme->style-list color-scheme))
(send ec set-line-count (+ 1 (for/sum ([c (in-string str)])
(if (equal? c #\newline)