fixed PR 8368

svn: r4748 original commit: 9a5eced27b77bf8be3015cc91b77a6feb5901b88
2006-11-02 04:13:52 +00:00 · 2006-11-02 04:13:52 +00:00 · a2673c7730
commit a2673c7730
parent 431749e5ba
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -1511,6 +1511,7 @@
        (define check-box (new check-box% 
                               [parent main-panel]
                               [label (string-constant fixup-open-brackets)]
+                               [value (preferences:get 'framework:fixup-open-parens)]
                               [callback 
                                (λ (x y)
                                  (preferences:set 'framework:fixup-open-parens (send check-box get-value)))]))