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

Fix a bug in color scheme setup

Browse Source
This commit is contained in:
Robby Findler 2013-09-21 13:15:23 -05:00
parent bece398a63
commit 9f465c4eef
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -628,6 +628,7 @@
"color-names: ~a\nstyle-names:\n~a\n"
(sort (set->list known-color-names) symbol<?)
(sort (set->list known-style-names) symbol<?))
(define preferred-color-scheme (preferences:get 'framework:color-scheme))
(for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))])
(define info (get-info/full dir))
(when info
@ -658,7 +659,11 @@
"expected something matching:\n~a\nfor framework:color-schemes in ~a, got\n~a"
(pretty-format (contract-name info-file-result-check?))
dir
(pretty-format cs-info)))]))))
(pretty-format cs-info)))])))
;; the color-scheme saved in the user's preferences may not be known
;; until after the code above executes, which would mean that the
;; color scheme in effect up to that point may be wrong. So fix that here:
(set-current-color-scheme preferred-color-scheme #t))
;; register-color-scheme : string boolean? (listof (cons/c symbol? (listof props)) -> void
@ -693,12 +698,7 @@
(props->color (cdr line))]
[(set-member? known-style-names name)
(props->style-delta (cdr line))]))))
example))))
;; the color-scheme saved in the user's preferences may not be known
;; until after the code above executes, which would mean that the
;; color scheme in effect up to that point may be wrong. So fix that here:
(set-current-color-scheme (preferences:get 'framework:color-scheme) #t))
example)))))
(define valid-props?
(listof (or/c 'bold 'italic 'underline