diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index fc55c8ef47..2b872ab436 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -96,7 +96,7 @@ (preferences:add-callback 'framework:special-meta-key (λ (p v) (map-command-as-meta-key v))) (map-command-as-meta-key (preferences:get 'framework:special-meta-key)) -(preferences:set-default 'framework:fraction-snip-style 'mixed (λ (x) (memq x '(mixed improper)))) +(preferences:set-default 'framework:fraction-snip-style 'mixed (λ (x) (memq x '(mixed improper decimal)))) (preferences:set-default 'framework:standard-style-list:font-name (get-family-builtin-face 'modern) diff --git a/collects/framework/private/number-snip.ss b/collects/framework/private/number-snip.ss index d5a4851481..fbb814124e 100644 --- a/collects/framework/private/number-snip.ss +++ b/collects/framework/private/number-snip.ss @@ -466,7 +466,9 @@ (make-object checkable-menu-item% (string-constant show-decimal-expansion) menu - (λ (x y) (set-fraction-view 'decimal)))] + (λ (x y) + (set-fraction-view 'decimal) + (preferences:set 'framework:fraction-snip-style 'decimal)))] [mixed-fraction-item (make-object checkable-menu-item% (string-constant show-mixed-fraction-view)