From 5446e9a2c4e9cf2fcdef77a73e6c5ccecd48e2f4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 16 Oct 2006 14:23:03 +0000
Subject: [PATCH] fixed bug in pref panel

svn: r4613
---
 collects/framework/private/main.ss   | 12 ++----------
 collects/framework/private/scheme.ss |  8 +++-----
 2 files changed, 5 insertions(+), 15 deletions(-)

diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 8297c8212f..d8b7589c6e 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -21,15 +21,6 @@
       
       (application-preferences-handler (λ () (preferences:show-dialog)))
       
-      (preferences:set-default 'framework:square-bracket:case
-                               '("new" "case")
-                               (λ (x) (and (list? x) (andmap string? x))))
-      
-      (preferences:set-default 'framework:square-bracket:cond
-                               '("case-lambda" "cond" "field" "provide/contract")
-                               (λ (x) (and (list? x) (andmap string? x))))
-      
-      
       (preferences:set-default 'framework:square-bracket:cond/offset
                                '(("case-lambda" 0)
                                  ("cond" 0)
@@ -52,7 +43,8 @@
                                  "let-syntax" "let-struct" "let-syntaxes"
                                  "letrec"
                                  "letrec-syntaxes" "letrec-syntaxes+values" "letrec-values"
-                                 "parameterize")
+                                 "parameterize"
+                                 "with-syntax")
                                (λ (x) (and (list? x) (andmap string? x))))
       
       (preferences:set-default 'framework:case-sensitive-search?
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 12ba5ddea3..be020bbca9 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1386,10 +1386,6 @@
       (define (make-square-bracket-prefs-panel p)
         (define main-panel (make-object vertical-panel% p))
         (define boxes-panel (new horizontal-panel% [parent main-panel]))
-        (define pref-syms (list 'framework:square-bracket:case
-                                'framework:square-bracket:cond
-                                'framework:square-bracket:letrec))
-        (define pref-prefixes '("Case" "Cond" "Letrec"))
                             
         (define (mk-list-box sym keyword-type pref->string get-new-one)
           (letrec ([vp (new vertical-panel% [parent boxes-panel])]
@@ -1457,7 +1453,9 @@
             (and new-one
                  (let ([parsed (with-handlers ((exn:fail:read? (λ (x) #f)))
                                  (read (open-input-string new-one)))])
-                   parsed))))
+
+                   (and (symbol? parsed)
+                        (symbol->string parsed))))))
         
         (define (get-new-cond-keyword)
           (define f (new dialog% [label (format (string-constant enter-new-keyword) "Cond")]))