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

fix default text adjustment

Browse Source 
it no longer changes the background to the inverse of the
foreground (for the default text color) but instead uses
the color of the 'framework:basic-canvas-background preference

Thanks to Laurent Orseau for the fix
This commit is contained in:
Robby Findler 2013-08-30 07:27:50 -05:00
parent 84798bd393
commit f9df5ad4e9
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkgs/gui-pkgs/gui-lib/framework/private/main.rkt
View File

@ -494,8 +494,6 @@
(preferences:set-default 'framework:file-dialogs 'std
(λ (x) (and (memq x '(common std)) #t)))
;; scheme prefs
(for-each (λ (line white-on-black-line)
(let ([sym (car line)]
[color (cadr line)]
@ -510,16 +508,18 @@
(preferences:set-default 'framework:coloring-active #t boolean?)
(color-prefs:set-default/color-scheme 'framework:default-text-color "black" "white")
(define (invert-a-color color)
(make-object color%
(- 255 (send color red))
(- 255 (send color green))
(- 255 (send color blue))))
(preferences:add-callback 'framework:basic-canvas-background
(λ (p v)
(editor:set-default-font-color
(preferences:get 'framework:default-text-color)
v)))
(preferences:add-callback 'framework:default-text-color
(λ (p v)
(editor:set-default-font-color v (invert-a-color v))))
(editor:set-default-font-color
v
(preferences:get 'framework:basic-canvas-background))))
(editor:set-default-font-color (preferences:get 'framework:default-text-color)
(invert-a-color (preferences:get 'framework:default-text-color)))
(preferences:get 'framework:basic-canvas-background))
(color-prefs:set-default/color-scheme 'framework:misspelled-text-color "black" "white")