Skip to content

Commit 3e50572

Browse files
committed
correct color scheme entry name
closes racket/gui#165
1 parent 57b2ff8 commit 3e50572

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

drracket/drracket/private/insert-large-letters.rkt

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -105,14 +105,14 @@
105105
(set-current-pref current-font n)
106106
(update-txt (send text-field get-value))]
107107
[else
108-
(define name 'framework:failed-background-color)
108+
(define name 'framework:failed-search-background-color)
109109
(cond
110110
[(and (color-prefs:known-color-scheme-name? name)
111111
(color-prefs:color-scheme-color-name? name))
112112
(send font-size-field set-field-background
113113
(color-prefs:lookup-in-color-scheme name))]
114114
[else
115-
;; can't happen because `'framework:failed-background-color` is always
115+
;; can't happen because `'framework:failed-search-background-color` is always
116116
;; in the set of color names but the type system doesn't know that
117117
(send font-size-field set-field-background warning-background)])]))]
118118
[label (string-constant font-size)]))

drracket/drracket/private/unit.rkt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1639,7 +1639,7 @@
16391639
(color-prefs:lookup-in-color-scheme
16401640
(if good?
16411641
'framework:basic-canvas-background
1642-
'framework:failed-background-color))))
1642+
'framework:failed-search-background-color))))
16431643

16441644
(define/private (log-shown?)
16451645
(and logger-gui-content-panel

0 commit comments

Comments
 (0)