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

dont set the style background color to the canvas background;

Browse Source 
instead leave it as transparent

related to racket/racket#1507
This commit is contained in:
Robby Findler 2016-11-05 14:59:45 -05:00
parent b52a41da23
commit e6a4865a74
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gui-lib/framework/private/main.rkt
View File

@ -553,21 +553,12 @@
(preferences:set-default 'framework:coloring-active #t boolean?) (preferences:set-default 'framework:coloring-active #t boolean?)
(color-prefs:add-color-scheme-entry 'framework:default-text-color "black" "white") (color-prefs:add-color-scheme-entry 'framework:default-text-color "black" "white")
(color-prefs:register-color-scheme-entry-change-callback
'framework:basic-canvas-background
(λ (v)
(editor:set-default-font-color
(color-prefs:lookup-in-color-scheme 'framework:default-text-color)
v)))
(color-prefs:register-color-scheme-entry-change-callback (color-prefs:register-color-scheme-entry-change-callback
'framework:default-text-color 'framework:default-text-color
(λ (v) (λ (v)
(editor:set-default-font-color (editor:set-default-font-color v)))
v
(color-prefs:lookup-in-color-scheme 'framework:basic-canvas-background))))
(editor:set-default-font-color (editor:set-default-font-color
(color-prefs:lookup-in-color-scheme 'framework:default-text-color) (color-prefs:lookup-in-color-scheme 'framework:default-text-color))
(color-prefs:lookup-in-color-scheme 'framework:basic-canvas-background))
(color-prefs:add-color-scheme-entry 'framework:misspelled-text-color "black" "white") (color-prefs:add-color-scheme-entry 'framework:misspelled-text-color "black" "white")