suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bug in pref panel

Browse Source 
svn: r4613
This commit is contained in:
Robby Findler 2006-10-16 14:23:03 +00:00
parent a33d3b2e66
commit 5446e9a2c4
2 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/framework/private/main.ss
View File

@ -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?

8
collects/framework/private/scheme.ss
View File

@ -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")]))