diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss index 08f09182..15c89d35 100644 --- a/collects/framework/private/editor.ss +++ b/collects/framework/private/editor.ss @@ -346,10 +346,10 @@ (define (set-standard-style-list-pref-callbacks) (set-font-size (preferences:get 'framework:standard-style-list:font-size)) (set-font-name (preferences:get 'framework:standard-style-list:font-name)) - (set-font-smoothing (preferences:get 'framework:standard-style-list:font-smoothing)) + (set-font-smoothing (preferences:get 'framework:standard-style-list:smoothing)) (preferences:add-callback 'framework:standard-style-list:font-size (lambda (p v) (set-font-size v))) (preferences:add-callback 'framework:standard-style-list:font-name (lambda (p v) (set-font-name v))) - (preferences:add-callback 'framework:standard-style-list:font-smoothing (lambda (p v) (set-font-smoothing v))) + (preferences:add-callback 'framework:standard-style-list:smoothing (lambda (p v) (set-font-smoothing v))) (unless (member (preferences:get 'framework:standard-style-list:font-name) (get-face-list 'mono)) (preferences:set 'framework:standard-style-list:font-name (get-family-builtin-face 'modern)))) diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index 7ab9c8f7..016f7b1a 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -35,7 +35,7 @@ (lambda (x) (and (number? x) (exact? x) (integer? x) (positive? x)))) (preferences:set-default - 'framework:standard-style-list:font-smoothing + 'framework:standard-style-list:smoothing 'default (lambda (x) (memq x '(unsmoothed partly-smoothed smoothed default))))