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" "color-names: ~a\nstyle-names:\n~a\n"
(sort (set->list known-color-names) symbol<?) (sort (set->list known-color-names) symbol<?)
(sort (set->list known-style-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)))]) (for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))])
(define info (get-info/full dir)) (define info (get-info/full dir))
(when info (when info
@ -658,7 +659,11 @@
"expected something matching:\n~a\nfor framework:color-schemes in ~a, got\n~a" "expected something matching:\n~a\nfor framework:color-schemes in ~a, got\n~a"
(pretty-format (contract-name info-file-result-check?)) (pretty-format (contract-name info-file-result-check?))
dir 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 ;; register-color-scheme : string boolean? (listof (cons/c symbol? (listof props)) -> void
@ -693,12 +698,7 @@
(props->color (cdr line))] (props->color (cdr line))]
[(set-member? known-style-names name) [(set-member? known-style-names name)
(props->style-delta (cdr line))])))) (props->style-delta (cdr line))]))))
example)))) 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))
(define valid-props? (define valid-props?
(listof (or/c 'bold 'italic 'underline (listof (or/c 'bold 'italic 'underline